Bei Fehler einfach weitermachen?

[mirko2000]

Gibt es in Delphi einen try-Block der bei einem auftretenden Fehler den Fehler einfach überspringt und einfach weitermacht als ob nicht passiert wäre? Also so eine Art

Code:

ON ERROR RESUME NEXT

aus Visual Baisc?!

Beispiel:

Delphi-Quellcode:

try
begin
  edit1.text := 'hallo'; // Wenn in dieser Zeile ein Fehler auftritt
  edit2.text := 'danke'; // diese Zeile hier auch noch ausführen
end

[bjacke]

Es gibt da einen try-finally Block:

Delphi-Quellcode:

try
   edit1.text := 'hallo'; // Wenn in dieser Zeile ein Fehler auftritt
   edit2.text := 'danke'; // diese Zeile hier auch noch ausführen 
finally
   Edit1.free;
   Edit2.free;
   End;

Ich übernehme kein Haftung für die Richtigkeit! , aber wo soll den bei so einer Übergabe ein Fehler auftreten?

[Sharky]

Hai mirko2000,

einfach Try-Finally

Delphi-Quellcode:

  try
    edit1.text := 'hallo'; // Wenn in dieser Zeile ein Fehler auftritt
  finally
    edit2.text := 'danke'; // diese Zeile hier auch noch ausführen
  end;

[bjacke]

Oky, jetzt hat es auch bei mir klick gemacht !

[DelphiFreund]

Wenn du den Fehler behandeln willst, oder darauf reagieren, oder was auch immer, kannst du auch try..except nehmen.

[mirko2000]

Zitat von bjacke:

aber wo soll den bei so einer Übergabe ein Fehler auftreten?

Das war auch nur ein kleines Beispiel.


Ich hab ein Problem mit einer Datenbankanbindung (Benutze die Zeos-Komponenten):

Delphi-Quellcode:

zeoSQL.SQL.Text := 'SELECT feld1, feld2 FROM tabelle';
zeoSQL.Active := true;
zeoSQL.First;

for i := 1 to 9 do
begin
  ergebnis[i, 1].Text := zeoSQL.Fields[0].Value;
  ergebnis[i, 2].Text := zeoSQL.Fields[1].Value;
  zeoSQL.Next;
end;

Und zwar kommt immer dann eine Fehlermeldung wenn im feld1 oder feld2 in der Datenbank einen Null-Wert drinstehen haben (was auch verständlich ist). Ich könnte zwar davor mit ner if-Abfrage überprüfen ob ein null-Wert drinsteht aber das ist nur ein kleiner Auszug aus meinem Quellcode.

Es sollte doch irgendwie Möglich sein, einfach einen Fehler zu überspringen, oder?

[Sharky]

Hai mirko2000,

so sollte es überhaupt keinen Fehler geben wenn Null in dem Feld steht.

Delphi-Quellcode:

.
.
for i := 1 to 9 do
begin
  ergebnis[i, 1].Text := zeoSQL.FieldByName ('feld1').AsString;
  ergebnis[i, 2].Text := zeoSQL.FieldByName ('feld2').AsString;
  zeoSQL.Next;
end;

[mirko2000]

Danke! Hat geklappt!