Zahl aus Datei einlesen , Format passt nicht

[bernhard_LA]

ich lese aus eine Datei einen String ein und möchte dann mit StrToFloat konvertieren nur bekomme ich leider ein Problem
mit dem Wert 23.24 in der Englischen Schreibweise wenn ich ein deutsche Windows verwenden.

Wie formatiere ich am Besten zwischen allen Zahlenformaten hin und her ?
Gibt es bessere Lösungen als unter http://www.delphipraxis.net/95827-st...t-nur-mit.html

[gammatester]

Wenn es wirklich mit Dezimalpinkt ist, kannst Du die val-Prozedur nehmen.

[rwalper]

Eine Möglichkeit wäre, die globale Variable FormatSettings.DecimalSeparator zur Konvertierung umzusetzen:

Delphi-Quellcode:

  
  ch := FormatSettings.DecimalSeparator;
  FormatSettings.DecimalSeparator := '.';
  try
    f := StrToFloat(s);
  finally
    FormatSettings.DecimalSeparator := ch;
  end;

Wobei ich Folgendes bevorzuge:

Delphi-Quellcode:

  
  s := StringReplace(s, '.', FormatSettings.DecimalSeparator, []);
  f := StrToFloat(s);

[baumina]

Man kann auch diese Funktion verwenden:

function StrToFloat(const S: string; const AFormatSettings: TFormatSettings): Extended;

[Natcree]

bei mir hat das geholfen

Delphi-Quellcode:

    begin   
      ThousandSeparator := '.';
      DecimalSeparator := ',';
      ...
    end;

wenn nicht nochmal versuchen in der systemsteuerung/region und sprache alle daten zur formatierung der Uhrzeit und Währung zurückzusetzen.

[ringli]

Zitat von Natcree:

wenn nicht nochmal versuchen in der systemsteuerung/region und sprache alle daten zur formatierung der Uhrzeit und Währung zurückzusetzen.

Das ist nicht dein Ernst, oder? Du kannst einem Benutzer doch nicht deine bevorzugten Einstellungen aufzwingen nur weil du es in deinem Programm so benötigst. Oder habe ich dich jetzt falsch verstanden?

[EDIT]
Ich denke da ist die Lösung von Baumina die beste Methode.

[DeddyH]

Zitat von ringli:

[EDIT]
Ich denke da ist die Lösung von Baumina die beste Methode.

Die ist ja auch genau dafür vorgesehen, da sollte man sie auch nutzen

[Popov]

Delphi-Quellcode:

var
  fs: TFormatSettings;
  s: string;
  e: Extended;
begin
  fs.DecimalSeparator :=  '.';
  s := '1234.567';

  e := StrToFloat(s, fs);
  e := e * 2;

  s := FloatToStr(e, fs);
  ShowMessage(s);
end;

Man kann ein beliebiges Trennzeichen wählen:

Delphi-Quellcode:

var
  fs: TFormatSettings;
  s: string;
  e: Extended;
begin
  fs.DecimalSeparator :=  '~'; //Tilde
  s := '1234~567';

  e := StrToFloat(s, fs);
  e := e * 2;

  s := FloatToStr(e, fs);
  ShowMessage(s);
end;