try ... except EConvertError

[FAlter]

Hi,

Zitat von markbolten:

ich will ein string in eine currency - variabel umwandeln (Delphi7).

Delphi-Quellcode:

if not TryStrToCurr(Text, FValue) then
  FValue := 0;

Dies sollte die beste Variante sein. Extended kann zwar implizit in Currency umgewandelt werden, aber die Verwendung der speziellen Funktionen für Currency (StrToCurr, CurrToStr, ...) ist bei der Verwendung von Currency die bessere Wahl.

Und natürlich, wie auch von jbg vorgeschlagen, am besten die Exception vermeiden

Mfg
FAlter

[edit] Natürlich TryStrToCurr[/edit]

[arc]

Das ist ein super Tip, habe das gleiche Problem und die Lösung gleich umgesetzt.

Ich nehme für Integer gern die alte val funktion, da es mir idR genügt eine 0 zu haben falls ein Fehler auftritt.

Code:

  if not TryStrToCurr(s, result) then result:=0;