String nach Double?

[daredd]

Kann mir einer auf die Sprünge helfen, wie mach ich aus einem TEdit.Text (String) ein Double?
Unter vorrausetzung im TEdit.Text steht eine Zahl mit Komma?


THX

[Sir Rufo]

StrToFloat oder StrToFloatDef

[himitsu]

Auch noch TryStrToFloat und sogar Val wäre möglich.

Zitat von daredd:

Unter vorrausetzung im TEdit.Text steht eine Zahl mit Komma?

Und was wenn nicht?

[grizzly]

Und immer schön die Exceptions abfangen. Keine der oben genannten Routinen arbeitet nämlich 100% sauber. Probier mal (mit d als double)TryStrToFloat('1e999', d); Das liefert nämlich nicht einfach nur false (1e999 paßt nicht in einen double), sondern löst eine Exception aus. Das Problem ist, daß 1e999 in einen extended paßt. Die ganzen Routinen wandeln erst in ein extended um, und dann wird ohne Rücksicht auf Verluste das Ergebnis in einen double kopiert...

Und wie ich gehört habe, hat Val() zum letztenmal unter Turbo-Pascal sauber funktioniert...

Vielleicht ist man am Besten dran mit den Routinen, bei denen man immer eine Exception erwartet, wenn die Umwandlung nicht klappt. Dann wird man wenigstens nicht kalt erwischt.


Gruß
Michael

[A.Griffin]

Ich musste vor kurzem auch StrToFloat benutzen und man muss auch noch "DecimalSeparator" beachten. Kann man verhindern, dass Delphi (in meinem Fall Delphi 7.1) den DecimalSeparator aus dem Betriebssystem nimmt und stattdessen immer '.' nutzt?

[nahpets]

Schau bitte mal nach TFormatSettings.

Damit kann man z. B. sowas machen:

Delphi-Quellcode:

var
    fFormatSettings : TFormatSettings;
...
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT,fFormatSettings);
  fFormatSettings.LongDateFormat   := 'YYYY-MM-DD';
  fFormatSettings.LongTimeFormat   := 'hh:mm:ss.zzz';
  fFormatSettings.ShortDateFormat  := 'YYYY-MM-DD';
  fFormatSettings.ShortTimeFormat  := 'hh:mm:ss.zzz';
  fFormatSettings.DecimalSeparator := '.';

Die Einstellungen werden für's Programm entsprechend geändert.

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