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.