Hi!
Das hat Luckie mal geschrieben, vielleicht hift es dir ein bisschen weiter.
Delphi-Quellcode:
function IntToBin(Int: Integer): String;
var
i : Integer;
begin
Result := '';
for i := 7 downto 0 do
Result := Result + IntToStr((Int shr i) and 1);
end;
function BinToInt(Binary: String): Integer;
var
i : Integer;
begin
Result := 0;
for i := Length(Binary) downto 1 do
Inc(Result, StrToInt(Binary[i]) * 1 shl (Length(Binary) - i));
end;