|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
Delphi 11 Alexandria
|
6. Dez 2002, 17:30
Moin Chewie,
meinst Du das so wie IntToHex?
Dann hätte ich hier mal einen Vorschlag:
Delphi-Quellcode:
function ByteToBinStr(const AbValue : Byte) : string;
var
bMask : Byte;
i : integer;
begin
Result := StringOfChar('0',8);
bMask := 1;
for i := 8 downto 1 do
begin
if (AbValue and bMask) <> 0 then
begin
Result[i] := '1';
end;
bMask := bMask shl 1;
end;
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|