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

[KoS]

Hallo zusammen,

ist es möglich bei einem try..except die Zeilennummer der "fehlerhafte" Zeile im Source auszugeben?
Bei mir ist es so das ich Logdateien schreibe und ich mehrere potentielle Fehler innerhalb eines try-blocks abhandel und diese nicht alle in einzelne try..except Blöcke verpacke. Nun stellt sich mir eben die Frage wenn ein Fehler auftraucht, in welcher Zeile im Quellcode der Fehler aufgetreten ist, da unter anderem die selben Funktionen mehrfach an verschiedenen Stellen im Code vorkommen.

Manch einer kennt das ja aus manchen Anwendungen wo dann so schöne Fehler kommen wie "Fehler in Zeile X (blabla.c)" oder sowas.

Vielen Dank!

Gruß KoS

[turboPASCAL]

Nein. In der Exec gibts ja dann och keine Zeihlennummer nicht. :mrgreen:
Du kannst doch aber den Procedurennamen in die Log schreiben.

[Luckie]

Guck mal, ob du mit Assert weiter kommst.

[KoS]

Zitat:

Zitat von turboPASCAL

Nein. In der Exec gibts ja dann och keine Zeihlennummer nicht. :mrgreen:
Du kannst doch aber den Procedurennamen in die Log schreiben.

Der Prozedurname ist ja bereits drin, aber glaubst du das ich dann bei über 250 Zeilen weiß welche von den verschiedenen z.b. StrToFloat Funktionen probleme bei der Umwandlung macht?
Und ich möchte vermeiden um jede einzelne ein try..except zu machen.

[turboPASCAL]

Zitat:

Zitat von turboPASCAL

Nein. In der Exec gibts ja dann och keine Zeihlennummer nicht. :mrgreen:
Du kannst doch aber den Procedurennamen in die Log schreiben.

// Edit:

Du kannst aber, so mach ich es, im QuellCode mit Hints arbeiten (ab D5). Diese kann man dann Loggen
und im Quelltext leichter finden.

Delphi-Quellcode:

{$MESSAGE Hint '*** Procedure DecodeString...'}
procedure DecodeString(_In, _Out: Pointer);
begin
  try
    //...
  exept
    //...
    WriteLogFile('Procedure DecodeString Error', TimeToStr(Now));
  end;
end;

// Edit II:

Ohhh, :gruebel: habe wohl den Quote Button erwischt... -.-"

[himitsu]

ExceptAddr liefert wohl erstmal die Stelle in der Exe

und dann gab's da noch irgendwas, welches diese Position "umrechnen" konnte.

[KoS]

Zitat:

Zitat von Luckie

Guck mal, ob du mit Assert weiter kommst.

Sieht eigentlich garnicht so schlecht aus, aber irgendwie versteh ich noch nicht so ganz wie ich das einsetzten soll. Kannst du mir da ein Beispiel für z.B. StrToFloat(s) geben?

@turboPASCAL: so ähnlich mache ich es ja bereits, nur micht mit diesem {$MESSAGE}, ich schreib einfach am anfang meiner Procedure eine begin text mit dem Namen der Prozedur und am ende auch, mittendrin dann ggf. noch weitere Infos was passiert oder eben beim Except noch die Exception.Message meldung.

Zitat:

Zitat von himitsu

ExceptAddr liefert wohl erstmal die Stelle in der Exe

und dann gab's da noch irgendwas, welches diese Position "umrechnen" konnte.

Hmm ... das mit dem "umrechnen" in die Zeilen wäre natürlich noch ne Voraussetzung, sonst könnte ich damit nicht all zu viel anfangen. (ganz so bewandert bin ich leider nicht in Delphi)

[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;

[KoS]

Hm das wäre fast genau so aufwendig als überall ein try drum zu machen.
Ich versuch das Programm ja nach möglichkeit nicht unnötig mit solchen Zeilen aufzublähen.

[himitsu]

hier ohne sich verscheiben/zählen zu können ... jedenfalls nich bei der Programmierung, da dort nur Copy&Paste.

Delphi-Quellcode:

LastPos := 0; 
Try 
  Befehl1; 
  Inc(LastPos); 
  Befehl2; 
  Inc(LastPos); 
  Befehl3; 
  ... 

Except 
  Fehler bei Befehl (LastPos)
End;