try ... except EConvertError

[markbolten]

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

Delphi-Quellcode:

   try
    fValue := strtofloat(text);
   except
    on EConvertError do
     begin
      fValue :=0;
     end;
    end;

wenn text='1,23,00' ist,bricht das Programm direkt nach fValue := strtofloat(text); mit
einer Exception EConvertError Fehlermeldung ab, ohne die except on EConvertError
Anweisung zu beachten .

WARUM wird die try Anweisung ignoriert?

Danke

[DeddyH]

Passiert das auch, wenn Du das Programm außerhalb der IDE laufen lässt?

[markbolten]

Zitat von DeddyH:

Passiert das auch, wenn Du das Programm außerhalb der IDE laufen lässt?

Nein, kann man dies auch während/in der IDE erreichen ?

[DeddyH]

Schau mal unter "Tools-Debugger-Optionen" (zumindest bei Delphi 7)

[jbg]

Alternativ könntest du das ganze auch gleich ohne Exception machen:

Delphi-Quellcode:

if not TryStrToFloat(text, fValue) then
  fValue := 0;

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