String nach Double?

[jaenicke]

In einigermaßen aktuellen Delphiversionen kann man auch direkt dem Konstruktor eine Landessprache mitgeben:
http://docwiki.embarcadero.com/Libra...ettings.Create

Delphi-Quellcode:

USFormatSettings := TFormatSettings.Create('en-US');
...

[Uwe Raabe]

Zitat von jaenicke:

Delphi-Quellcode:

USFormatSettings := TFormatSettings.Create('en-US');
...

Das kann aber immer noch schief gehen, wenn der User seine US-Settings angepasst hat (ich hätte ihn würgen können).

Sicherer ist dann immer noch TFormatSettings.Invariant.

[HolgerX]

Hmm..

da es dei TFormatSettings in Delphi 7 noch nicht gibt (soweit ich weis), kannst Du eventuell mit der Funktion was Anfangen:
(Diese verwende ich bei Delphi 6)

Delphi-Quellcode:

function StrToFloatD(AStr : string; ADef : double = 0):double;
begin
  AStr := StringReplace(AStr,',',DecimalSeparator,[]);
  AStr := StringReplace(AStr,'.',DecimalSeparator,[]);
  result := StrToFloatDef(AStr,ADef);
end;

Damit ist eigendlich sicher gestellt, das der DecimalSeparator im String steht (ausgenommen, wenn der String tausendertrennzeichen enthält ) und somit das normale StrToFloatDef einen brauchbaren Sting bekommt.

Dieses verwendet nämlich immer den DecimalSeparator.

Alternativ kann man auch vor StrToFloat den DecimalSeparator auf '.' setzen und nachher wieder zurück. Bedenke jedoch, dass es dann an anderer Stelle in deinem Programm Probleme geben kann, da DecimalSeparator eine globale Var ist...

[Rollo62]

Dann schon besser so ...

Delphi-Quellcode:

function StrToFloatD(AStr : string; ADef : double = 0):double;
begin
  if      '.' = DecimalSeparator then
    AStr := StringReplace(AStr,',',DecimalSeparator,[])
  else if ',' = DecimalSeparator then
    AStr := StringReplace(AStr,'.',DecimalSeparator,[])
  else
    EXception; // das sollte nie passieren, oder gibt es doch solche Länder ?
  result := StrToFloatDef(AStr,ADef);
end;

[A.Griffin]

Ich wollte eigentlich wissen ob es global möglich ist, so dass ich nicht im jedem Programm den DecimalSeperator festlegen muss. Jetzt habe ich einfach bei FormCreate "DecimalSeparator := '.';" drin. Ich fange eh alle "," ab und ersetze sie durch ".".

[a.def]

Schreibe dir doch eine minimale DLL die genau das tut und die lädst du in jedes deiner Programme.

[nahpets]

Zitat von A.Griffin:

Ich wollte eigentlich wissen ob es global möglich ist, so dass ich nicht im jedem Programm den DecimalSeperator festlegen muss. Jetzt habe ich einfach bei FormCreate "DecimalSeparator := '.';" drin. Ich fange eh alle "," ab und ersetze sie durch ".".

Global, für alle Programme?

Dann mach das doch in den Systemeinstellungen von Windows.

@HolgerX

TFormatSettings gibt es in Delphi 7. Mein Beispiel stammt aus Delphi 7.

[HolgerX]

Zitat von nahpets:

@HolgerX

TFormatSettings gibt es in Delphi 7. Mein Beispiel stamm aus Delphi 7.

OK, danke.
Dann scheint es mit D7 hinein gekommen zu sein, bei D6 sind es noch einfache globale Variablen..