extended to string

[Dani]

Wenn die Kommawerte in GPGGA immer durch '.' getrennt vorliegen würde es doch reichen DecimalSeparator auf '.' zu setzen!? Ich glaube nämlich dass dir auch StrToFloatDef('343.3121', 0) eine 0 als Rückgabewert liefern würde (weil er ein Komma erwartet).

Edit: Schreibweise berichtigt

[btbe]

Habe

Zitat:

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

versucht, dann bekomm ich das gesagt: "Unclared Identifier: 'DecimalSeperator' "

[Dani]

Sorry habe mich verschrieben, es heißt "DecimalSeparator"

[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;

[btbe]

cool danke funzt..... habt mich gerettet...!!!!!