如何在 delphi中十进制数的每一位变成二进制然后进行异或

Question

如题所述

Answer 1

delphi 中，可以用  xor 操作符完成 异或 计算。

以下是示例代码：

function IntToBin(const value, digits: longword): string;
var
  counter: integer;
  pow:     integer;
begin
  Result := '';
  pow := 1 shl (digits - 1);
  if value <> 0 then
  for counter := 0 to digits - 1 do
  begin
    if (value and (pow shr counter)) <> 0 then
      Result := Result + '1'
    else
      Result := Result + '0';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i1,i2,i3: Integer;
begin
  i1 := 15; //1111
  i2 := 14; //1110
  i3 := i1 xor i2;
  ShowMessage(IntToStr(i1) + ' å¼‚或 ' + IntToStr(i2)  + #13#10
    + '= '+IntToBin(i1,8) + ' å¼‚或 ' +IntToBin(i2,8)  + #13#10
    + '= '+IntToBin(i3,8));
end;

运行截图：

Answer 2

var s:string; i,r=1900;s=0;for i1 to length(s) do r:=strtoint(s ) xor r;// r (integer type) is the result! 查看更多答案>>本回答被提问者采纳