Um die Frage aber trotzdem zu beantworten
Ich habe mit der Suche (IntTOBin) diesen
Code von Christian gefunden und ihn nur leicht abgeändert.
Delphi-Quellcode:
function IntToBin(
const AdwValue: DWORD; adigits : Byte):
string;
function PowerOf2(
const AbExponent: byte): DWORD;
var
i: byte;
begin
Result := 1;
for i := 1
to AbExponent
do
begin
Inc(Result, Result)
end;
end;
var
dwPower: DWORD;
i: integer;
dwValue: DWORD;
begin
Result := StringOfChar('
0', adigits);
dwValue := AdwValue;
for i := Pred(adigits)
downto 0
do
begin
dwPower := PowerOf2(i);
if dwValue >= dwPower
then
begin
Result[adigits - i] := '
1';
Dec(dwValue, dwPower);
end;
end;
end;
procedure TForm1.btn_ConvertClick(Sender: TObject);
begin
ShowMessage (IntToBin(10,8));
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"