fehlerhafte Rekursion

[glkgereon]

Extended macht hier keinen sinn, da die Nachkommastellen eh nicht beachtet werden

Delphi-Quellcode:

function GetStelle(Val: Int64):Integer;
begin
  Result:=1;
  while Val>9 do 
    begin
    Val:=Val div 10;
    Inc(Result);
    end;
end;

function Num2Str(Val: Int64):String;
var T: Int64;
begin
  if Val<10 then 
    Result:=IntToStr(Val)
  else
    begin
    T:=Val div 10;
    Result:=IntToStr(Val div GetStelle(Val))+Num2Str(T);
    end;
end;

aber das ist nun echt mit gewalt rekursivitiert^^