Try-Finally und Try-Except zusammen nutzen?

[xZise]

Das ist der gängige Weg mit Delphi. In anderen Programmiersprachen hast du netterweise auch ein try-except-finally Konstrukt.

Zum Beispiel in Java:

Code:

try {

} catch (Exception e) {

} finally {

}

MfG
Fabian

[himitsu]

Zitat von xZise:

Zum Beispiel in Java:

Code:

try {

} catch (Exception e) {

} finally {

}

Intern ist Try-Finally und Try-Except fast das Selbe, jedenfalls wird mit den selben Struckturen gearbeitet.

Das Problem ist aber, wenn in einem der Except/Finally-Blöcke eine Exception auftritt.
Darum braucht man eben 2 verschachtelte Schutzblöcke, Delphi baut sich sowas leider nicht selber zusammen.

sowas hätte mir auch gefallen

Delphi-Quellcode:

try

except

finally

end;

@xZise: Was passiert denn, wenn in Catch eine Exception auftritt?
Wird dann Finally noch ausgeführt?[/QUOTE]


Wierum man es letztendlich verschachtelt, hängt von der Aufgabe ab.

Delphi-Quellcode:

Ini := TIniFile.Create('C:\Test.ini');
try
  try 
    ...
  except
    ...
  end;
finally
  Ini.Free;
end;

TIniFile greift im Constructor nicht auf die Datei zu, weswegen es hier geht.
TMemIniFile macht dieses aber, weshalb man es hier eventuell andersrum machen sollte, falls z.B. schon beim Öffnen/Auslesen ein Fehler auftritt.

Delphi-Quellcode:

try 
  Ini := TMemIniFile.Create('C:\Test.ini');
  try
    ...
  finally
    Ini.Free;
  end;
except
  ...
end;

[himitsu]

[edit] *verklickt*

[xZise]

Moin himitsu,

Zitat von himitsu:

[...]sowas hätte mir auch gefallen[...]

Joar manchmal ganz nett. Und da könnte die Compiler magic auch das in das "alte" Format umwandeln.

Zitat von himitsu:

Delphi-Quellcode:

try

except

finally

end;

@xZise: Was passiert denn, wenn in Catch eine Exception auftritt?

Beurteile es selber:

Code:

C:\Users\xZise\Desktop\löschen>"C:\Program Files\Java\jdk1.6.0_21\bin\javac.exe"
 Main.java

C:\Users\xZise\Desktop\löschen>java Main
Throw an exception.
Exception caught. Throw another exception!
Now I'm in the finally block.
Exception in thread "main" java.lang.ArithmeticException: / by zero
        at Main.main(Main.java:10)

Code:

public class Main {

    public static void main(String[] a) {
    
        try {
            System.out.println("Throw an exception.");
            int i = 2 / 0;
        } catch (Exception e) {
            System.out.println("Exception caught. Throw another exception!");
            int j = 2 / 0;
        } finally {
            System.out.println("Now I'm in the finally block.");
        }
        System.out.println("Good bye.");
    }

}

MfG
Fabian

[himitsu]

Schön, dann scheint es in Java wenigstens richtig behandelt zu werden.


Aber sowas wie int j = 2 / 0; würde Delphi garnicht erst kompilieren

[rollstuhlfahrer]

nun ja, Delphi macht da einiges mit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Extended;
  j, k: Integer;
begin
// 1
ShowMessage(Format('%1.4f', [(5/0)]));

// 2
ShowMessage(FloatToStr(5/0));

// 3
i := 5/0;
ShowMessage(FloatToStr(i));

// 4
j := Trunc(5/0);
ShowMessage(IntToStr(j));

// 5
k := 5 div 0;
ShowMessage(IntToStr(k));
end;

Mit den beiden Zeilen, die mit 1, 2 und 3 beschriftet sind, hat Delphi absolut keine Probleme. Bei Zeile mit 4 meckert es mit "Konstantenausdruck verletzt untere Grenze" und erst bei der Zeile mit 5 bemerkt es, dass das jetzt schon wieder eine Division durch 0 ist und zeigt einen entsprechenden Fehler an.

Bernhard

[himitsu]

Ich nutz ja recht selten etwas ala "div by null",
aber als ich mich das letzte mal verschrieben hatte, da war's glaub ich auch das div (div 0 statt div 10 geschrieben).
Mir ist aber so, als wenn ich sowas auch mal mit einem / hatte

[xZise]

Soweit ich weiß, kann man eine Gleitkommazahl durch 0 teilen (das Ergebnis ist dann NaN).

Und naja, Java meckert ziemlich viel rum:

• Code:

  int answer() {}

  Code:

  int answer() {
      if (Math.random() < 0.5) { return 0; }
  }

  missing return statement
• Code:

  int answer() throws Exception { 
     throw new Exception();
     return 42;
  }

  unreachable statement

MfG
Fabian

[Benmik]

Hat sich hier eigentlich in den letzten 10 Jahren etwas getan? Ist in den nächsten 100 Jahren etwas zu erwarten?

Ich habe laufend Routinen, in denen sowohl Fehler abgefangen als auch Ressourcen freigegeben werden müssen. Dieses

Delphi-Quellcode:

Try
  Try

finde ich furchtbar, und man sieht es auch selten. Es soll auch einen Haufen Code erzeugen.
Was ist eigentlich damit, dürfte ein Profi sich sowas leisten, oder wäre sein Ruf dann dahin?

Delphi-Quellcode:

  Except
    Liste.Free;
    Stream.Free;
    Objekt.Free;
    Showmessage('Mist!'); 
    exit(False);
  end;
  Liste.Free;
  Stream.Free;
  Objekt.Free;
end;

Wenn es noch gestattet ist und nicht als OT angesehen wird, würde ich auch gern auf diesen Beitrag bei SO verweisen (selbstverständlich führt auch dort David Heffernan seine Klinge). Ich habe nämlich auch angefangen, sehr viele Prozeduren in Funktionen umzuwandeln, in denen der Wert über einen var-Parameter zurückgegeben wird und Result mitteilt, ob alles geklappt hat. If BestimmeWert(var Wert:string) then ... gefällt mir codetechnisch viel besser als

Delphi-Quellcode:

Wert := BestimmeWert;
If Wert <> '' then ...

.