Bei try..except Zeilenr. der fehlerhaften Zeile ausgeben?

[himitsu]

Na ja, ich auch nicht so, aber es gibt so Projekte wo die ganzen Debuginformationen mit in der Exe gepeichert werden und dann darüber die Zeile zur Position bestimmt werden kann.

und sowas?

Delphi-Quellcode:

Var LastPos: Integer;


LastPos := 0;
Try
  Befehl1;
  LastPos := 1;
  Befehl2;
  LastPos := 2;
  Befehl3;
  LastPos := 3;
  Befehl4;
  ...

Except 
  Case LastPos of
    0: Fehler bei Befehl 1
    1: Fehler bei Befehl 2
    2: Fehler bei Befehl 3
    3: Fehler bei Befehl 4 
    ...
  End;
End;