Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.062 Beiträge
 
Delphi XE2 Professional
 
#4

Re: fehlerhafte Rekursion

  Alt 9. Dez 2005, 18:42
Versuche es mal so :

Delphi-Quellcode:
FUNCTION ExtToStr(v:extended; len:integer=0; decimals:integer=0):string;
begin
   str(v:len:decimals,result);
end;
len ist die minimale Gesamtlänge des Strings. Wenn die Zahl mehr Stellen braucht wird der String länger. Wenn die Zahl weniger Stellen braucht werden entsprechend Blanks davor gestellt.

decimals ist die Anzahl der Nachkommastellen.

Die maximale Länge wird intern auf 255 begrenzt.
(siehe _Str2Ext in Systems)

Du schriebst, Du brauchst mehr als 18 Stellen. Ist dir klar, daß extended Typen maximal 19-20 signifikate Stellen "bringen"?

Gruß, Klaus
  Mit Zitat antworten Zitat