hallo,
wenn man die function so aufruft
TextToFloat(PChar(tradeOpen),open, fvExtended);
muss open vom Typ Extended sein. (so verstehe jedenfalls die Online Hilfe).
so habe ich es mal getestet.
Delphi-Quellcode:
var open:Extended;
tradeOpen, y:String;
ff:TFormatSettings;
ergebnis:string;
begin
ff:=TFormatSettings.Create;
tradeOpen:='12843.2105';
System.sysutils.TextToFloat(PChar(tradeOpen),open,fvExtended,ff.Invariant);
ff.DecimalSeparator:='.';
y:= FormatFloat('#0000.0000#;;', open,ff);
ergebnis:=tradeOpen+ ' '+y;
Caption:=ergebnis;
end;
gruß