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:

markieren

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).

markieren

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.

markieren

Code:

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

try ... except EConvertError

try ... except EConvertError

Re: try ... except EConvertError

Re: try ... except EConvertError

Re: try ... except EConvertError

Re: try ... except EConvertError

Re: try ... except EConvertError

AW: try ... except EConvertError

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#2 Re: try ... except EConvertError 30. Sep 2007, 09:42 Passiert das auch, wenn Du das Programm außerhalb der IDE laufen lässt? Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

markbolten Registriert seit: 5. Jun 2005 25 Beiträge	#3 Re: try ... except EConvertError 30. Sep 2007, 09:51 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 ?
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#4 Re: try ... except EConvertError 30. Sep 2007, 09:58 Schau mal unter "Tools-Debugger-Optionen" (zumindest bei Delphi 7) Miniaturansicht angehängter Grafiken Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

jbg Registriert seit: 12. Jun 2002 3.481 Beiträge Delphi 10.1 Berlin Professional	#5 Re: try ... except EConvertError 30. Sep 2007, 10:02 Alternativ könntest du das ganze auch gleich ohne Exception machen: markieren Delphi-Quellcode: if not TryStrToFloat(text, fValue) then fValue := 0; Andreas aka AHUser aka jbg Mein Blog - kombiniert mit all meinen Delphi Tools
	Zitat

arc Registriert seit: 6. Nov 2009 Ort: Elbflorenz 62 Beiträge FreePascal / Lazarus	#7 AW: try ... except EConvertError 19. Aug 2011, 23:36 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. markieren Code: if not TryStrToCurr(s, result) then result:=0;
	Zitat