2 Byte addieren

[Wormid]

Jetzt wollte ich doch mal sehen, wie es funzt...

Delphi-Quellcode:

function BinaryStringAddition(Bin1, Bin2: String): String;
var i, x, o: Integer;
    Temp: String;
begin
  Result := StringOfChar('0', Max(Length(Bin1), Length(Bin2)));  // Ergibnis mit Nullen füllen
  Insert(StringOfChar('0', Length(Result) - Length(Bin1)), Bin1, 1);  // Len Bin1 = Len Bin2 
  Insert(StringOfChar('0', Length(Result) - Length(Bin2)), Bin2, 1);
  o := 0;
  for i := Length(Bin1) downto 1 do
  begin
    x := StrToInt(Bin1[i]) + StrToInt(Bin2[i]) + o;
    if x > 1 then
    begin
      o := 1; // Überlauf
      x := 0;
    end
    else o := 0;
    Temp := Trim(IntToStr(x));
    Result[i] := Temp[1];
  end;
  if o > 0 then Insert('1', Result, 1);
end;

... und et viola! Es tut

Gruß

Wormid