Integer to Binary ??

[Matze]

Das geht bei mir einwandfrei:

Delphi-Quellcode:

function IntToBin(Value: Cardinal): string;
var
  I: Integer;
begin
  SetLength(Result, 32);
  for I := 1 to 32 do
  begin
    Result[I] := Char(Ord('0') + (Value shr 31));
    Inc(Value, Value);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  test: Integer;
  test2: string;
begin
  test := 13;
  test2 := IntToBin(test);
  ShowMessage(test2)
end;

IntToBin ist eine der vielen erwähnten möglichen Funktionen aus der Code-Library.

Grüße

Edit: Nutze bitte, wie zuvor auch, die [delphi]-Tags.