fehlerhafte Rekursion

[blackfoxx]

Hi Leute.

Ich versuche eine Alternative zur "FloatToStr"-Funktion zu schrieben, da ich mehr als 18 Stellen benötige.
Ich hab mir gedacht, dass der einfachste Weg wohl die Rekursion sein drüfte. Also habe ich folgende Funktion entwickelt.

Delphi-Quellcode:

function ExtToStr(X:Extended):String;
var e:extended;
begin
 if X>10 then result:=result+Exttostr((X/10))
 else Result:=Result+inttostr(trunc(X));
end;

Das Problem ist jetzt, dass er mir als Ausgabestring lediglich die erste Stelle ausgibt. Also zB bei X=29836 nur die 2.
Ich komm einfach nicht drauf, wo der Fehler liegt.

Vieleicht könnt ihr mir helfen..

Danke

BlackFoXX