Falsche Verwendung von try...except...end

[DeddyH]

Das ist richtig so: wenn das ExecuteCommand fehlschlägt, dann wird der Fehler mitgeloggt.

[edit] Nachtrag: das setzt natürlich voraus, dass im Fehlerfall auch wirklich eine Exception geworfen wird [/edit]

[sgbSoftwareEntwickler]

Vielen Dank für den Beitrag shmia

[MephistoMyRo]

Ich will ja nicht kleinlich sein, aber:

Delphi-Quellcode:

// in folgendem Beispiel werden Daten aus einer Query gelesen
// Fehler werdem in einem Memo protokolliert und der Lesevorgang geht weiter
// es werden keine Informationen unterdrückt, sondern die Fehlermeldungen werden protokolliert
while not Query1.Eof do
begin
  try
    MachWas(Query1);
  except
    on E:Exception do
    begin
       MemoLog.Lines.Add('Fehler in MachWas');
       MemoLog.Lines.Add(E.ClassName+':'+E.Message);
       MemoLog.Lines.Add('Record: ' +IntToStr(Query1.RecNo);
    end;
   Query1.Next; // nächster Datensatz
  end;
end;

Wenn MachWas(Query1) keine Exception auslöst, dann wird das hier ne Endlos-Schleife...

Query1.Next; // nächster Datensatz müsste ein end weiter. Bitte korregieren oder ich hab da etwas falsch verstanden.

[DeddyH]

Wie kommst Du darauf?

[Neutral General]

Zitat von DeddyH:

Wie kommst Du darauf?

Weil das Query1.Next im except-Block steht.

[DeddyH]

Oh, stimmt, das "end" zum "try" kommt ja erst danach.