IntToStr mal anders

[DeddyH]

Da war zwar jemand schneller, aber so ähnlich habe ich es auch:

Delphi-Quellcode:

function MyIntToStr(const int: integer): string;
var tmp: integer;
begin
  Result := '';
  tmp := int;
  repeat
    Result := Chr(abs(tmp) mod 10 + 48) + Result;
    tmp := tmp div 10;
  until tmp = 0;
  if int < 0 then
    Result := '-' + Result;
end;