Registriert seit: 18. Aug 2004
Ort: Brackenheim VS08 Pro
2.876 Beiträge
|
Re: Bits in Str umwandeln
12. Sep 2005, 14:41
@Sharky: Warum so kompliziert?
Delphi-Quellcode:
function DecToBin(const AValue: Cardinal; const ADigits: Byte): string;
var
i: Integer;
begin
if ADigits > SizeOf(AValue) * 8 then
Exit;
for i := ADigits - 1 downto 0 do
Result := Result + IntToStr(AValue shr i and 1);
end;
Sebastian Moderator in der EE
|