Problem mit Binärrechner

[TeronG]

Zitat von DBR:

Mach doch sowas:

mach doch mal code-tags (heißen die so ??)

Zitat von DBR:

Delphi-Quellcode:

function IntToBin(i: int64): string;
begin
  result := '';
  while i > 0 do begin
    result := inttostr(ord(odd(i))) + result;
    i := i shr 1;
  end;
  if result = '' then result := '0';
end;


procedure TForm1.Button7Click(Sender: TObject);
var x, y, z, r: integer;
begin
  edit2.Text := IntToBin(StrToIntDef(Edit1.Text, 0));
end;

Ist doch einfach.