Konvertierung Double, Ausgabe davon

[mmw]

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ß