Try-Finally und Try-Except zusammen nutzen?

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

.

[haentschman]

Hallöle...

Zitat:

Exit veranlasst die aufrufende Prozedur, mit der Anweisung nach dem Punkt fortzufahren, an dem die Prozedur aufgerufen wurde

http://docwiki.embarcadero.com/Libra...de/System.Exit
try/finally bewirkt das der Finally Block immer ausgeführt wird. Damit brauchst du die Freigaben nicht doppelt schreiben.
https://de.wikipedia.org/wiki/Don%E2...epeat_yourself

[Benmik]

Nein, schau doch noch mal hin ...
(zum Verständnis: haentschmanns Antwort ist nun nicht mehr, was sie mal war...)

[haentschman]

Zitat:

zum Verständnis: haentschmanns Antwort ist nun nicht mehr, was sie mal war

...wer kann denn schon ahnen, daß die Antwort gleich gelesen wird. Ich hatte die ersten Freigaben übersehen und mich auf das EXIT konzentriert.

[Benmik]

Zitat von haentschman:

try/finally bewirkt das der Finally Block immer ausgeführt wird. Damit brauchst du die Freigaben nicht doppelt schreiben.

Na klar, die Freigabe klappt dann, aber die Exceptionbehandlung nicht mehr, das ist ja der Grund für das doppelte Try.

Aber jetzt anders, wie macht ihr das?
1. Doppeltes Try
2. Doppeltes Try umgehen
3. Zweite Variante doch wohl nicht, aber nur gefühlsmäßig, oder aus sachlichem Grund?

[Delphi.Narium]

Bevorzugt doppeltes Try.

Wenn möglich in Funktionen ausgelagert, die mir sagen, ob's erfolgreich war bzw. einen definierten Wert zurückgeben, mit dem ich garantiert weiter arbeiten kann.

Also ähnlich zu Deinem Beispiel mit Funktion und Var-Parametern.

Var-Parameter immer dann, wenn die Funktion mehr als einen Wert liefern muss oder im Fehlerfalle anders vorgegangen werden muss, als im Erfolgsfalle.

Also sowas:

Delphi-Quellcode:

if MeineFunktion(1..n Parameter) then begin
  // Weiterverarbeitung im Erfolgsfall.
end else begin
  // Weiterverarbeitung im Fehlerfall.
end;
// oder eben, Fehler in der Funktion werden vollständig behandelt und Rückgabewert ist für die Weiterverarbeitung geeignet.
Variabel := MeineFunktion(1..n Parameter);

In beiden Fällen gilt: Als Var-Parameter nur die, die auch verändert werden müssen, die übrigen als Const-Parameter.

Delphi-Quellcode:

function MeineFunktion(0..n Const-Parameter, 1..n Var-Parameter) : Boolean;
function MeineFunktion(1..n Const-Parameter) : BedarfsgerechterTyp;

Funtionen können als Rückgabewert ggfls. aber auch mal vom Typ "Record of wasauchimmer" sein, dann hat man zwar nur einen Rückgabewert, der kann aber als Record mehrere Werte enthalten (ist aber eher die Ausnahme, meist nur dann, wenn aus der Funktion irgendwas aufgerufen wird, was sowieso schon 'nen Record liefert.)