IntToStr mal anders

[ErazerZ]

Delphi-Quellcode:

function MyIntToStr(Nummer: Integer): string;
var
  Rest: Integer;
  Minus: Boolean;
begin
  Minus := (Nummer < 0);
  repeat
    Rest := Nummer mod 10;
    Nummer := Nummer div 10;
    if (Rest < 0) then
      Result := chr(Abs(Rest) + $30) + Result
    else
      Result := chr(Rest + $30) + Result;
  until (Nummer = 0);
  if Minus then
    Result := '-' + Result;
end;