Fehler Behandlungs Beispiel:
Delphi-Quellcode:
var
number1, number0 : Integer;
begin
try
number0 := 0;
number1 := 1;
number1 := number1
div number0;
ShowMessage('
1 / 0 = '+IntToStr(number1));
except
on E :
Exception do
begin
ShowMessage('
Exception ClassName = '+E.ClassName);
// hier gibt's den ClassName des Verursachers
ShowMessage('
Exception Nachricht = '+E.
Message);
// und seine Fehlermeldung
end;
end;
end;
Man kann auch auf verschieden Fehler in On Events reagieren, Beispiel:
Delphi-Quellcode:
except
On E : EInOutError do
ShowMessage('IO Fehler : '+E.Message);
On E : EDivByZero do
ShowMessage('Division durch NULL : '+E.Message);
else
ShowMessage('andere Fehler');
end;
Für Zeilennummern solltest Du Dich mit
on e: exception do begin showmessage(e.StackTrace); end;
und
GetStackInfoStringProc beschäftigen.
edit
Link1 und
Link2 wo ich diese Informationen her habe.