Binäre subtraktion?

[Phantom1]

Ich suche momentan eine einfache function um 2 Binärzahlen zu subtrahieren.

Fürs addieren habe ich folgenen Code:

Delphi-Quellcode:

function Addieren(Val1, Val2: TBitInt): TBigInt;
var i: integer; merke: Boolean;
begin
  merke:=False;
  for i:=Low(Val1) to high(Val1) do begin
    Result[i]:=(Val1[i] xor Val2[i]) xor merke);
    merke:=Val1[i] and Val2[i] or ((Val1[i] or Val2[i]) and merke);
  end;
end;

Ich komme grad nich drauf, wie ich es bei der Subtraktionen machen muss:

Delphi-Quellcode:

function Subtrahieren(Val1, Val2: TBitInt): TBigInt;
var i: integer; merke: Boolean;
begin
  merke:=False;
  for i:=Low(Val1) to high(Val1) do begin
    Result[i]:= ...
    merke:= ...
  end;
end;

[brechi]

schau dir mal das Einer/Zweierkomplement an. (Wiki)
Dann kannst du die Addition dafür benutzen.