na na!!! Du hast doch wieder inttostr benutzt
...
aber müsste es nicht so gehen:
Delphi-Quellcode:
function IntToBin(i: Integer): string;
VAR
h, e, c : integer;
s, s2 : STRING;
BEGIN
h := i;
e := 0;
REPEAT
h := h DIV 2;
e := i MOD 2;
VAL(s,e,c);
s2 := s2 + s;
UNTIL h < 2;
inttobin := s2;
end;
?!
Evian
[edit=Luckie]Delphi-Tags ergänzt. Ein bischen Code formatieren könnte auch nicht schaden. 
Mfg, Luckie[/edit]