Zur Laufzeit, Zeilennummer feststellen

[KodeZwerg]

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.