Problem mit Binärrechner

[marabu]

Auch ich würde eine saubere Trennung von GUI und Funktionen vorziehen. Meine Umwandlungsroutine und die von DBR unterscheiden sich aber geringfügig:

Delphi-Quellcode:

function CardToDual(c: Cardinal): string;
begin
  Result := '';
  repeat
    Result := Chr(Ord('0') + Ord(Odd(c))) + Result;
    c := c shr 1;
  until c = 0;
end;

procedure TMainForm.ConvertButtonClick();
begin
  BinaryEdit.Text := CardToDual(StrToInt(DecimalEdit.Text));
end;

Grüße vom marabu