Hallo, da ein
Cardinal 32 Bit groß ist, kannst du
Byte (8 Bit) nehmen:
Delphi-Quellcode:
function IntToBin(Value: Byte): string;
var
I: Integer;
begin
SetLength(Result, 8);
for I := 1 to 8 do
begin
Result[I] := Char(Ord('0') + Value shr 7);
Inc(Value, Value);
end;
end;
Theoretisch kannst du den
Cardinal auch auf 8 Bit runterschrauben:
Delphi-Quellcode:
function IntToBin(Value: Cardinal): string;
var
I: Integer;
begin
SetLength(Result, 8);
for I := 1 to 8 do
begin
Result[I] := Char(Ord('0') + (Value and $FF) shr 7);
Inc(Value, Value);
end;
end;
Doch letzteres nur zum Verständnis. Für 8 Bit wäre ein Cardinal übertrieben.
Grüße
Edit: Da war einer schneller.