extended to string

[Union]

Zitat von Dani:

Man kann den Dezimal Seperator auch "manuell" setzen.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 DecimalSeperator := '.';
end;

Ja, aber das ist nicht Threadsafe. So funktioniert es sicher und es stört nicht andere Threads in der selben Anwendung:

Delphi-Quellcode:

rocedure TForm1.Edit1Exit(Sender: TObject);
var
   f : extended;
   s : string;
   fs : TFormatSettings;
begin
   s := Edit1.Text;
   GetLocaleFormatSettings(GetUserDefaultLcId, fs);
   fs.DecimalSeparator := '.';
   f := StrToFloat(s, fs)*1.852;
end;