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