Exception in Code Zeile Nr. ????

[spacewolf]

gibt es eine Möglichkeit die Zeilennummer einer Exception auszugeben ?

z.B.

Delphi-Quellcode:

on e:Exception
do ShowMessage(e.ClassName#13#10+e.Message+#13#10[b]e.ZEILENNUMMER[/b]);

thanXs say the little Andreas

[Luckie]

Du könntest mit Assert arbeiten. Oder du benutzt die Units von Madshi.

[Bernhard Geyer]

In der Jedi Code Library gibt es eine Unit die dir die "C-Like-Makros" __LINE__ und ähnliches bereitstellt.
Funktioniert jedoch nur wenn auch entsprechende Debug-Infos (TD32-Debuginfos) in die Exe kompiliert wurden.

[mirage228]

Zitat von Bernhard Geyer:

In der Jedi Code Library gibt es eine Unit die dir die "C-Like-Makros" __LINE__ und ähnliches bereitstellt.
Funktioniert jedoch nur wenn auch entsprechende Debug-Infos (TD32-Debuginfos) in die Exe kompiliert wurden.

Die TD32 machen die EXEn doch locker doppelt und dreifach so groß oder?

mfG
mirage228

[Luckie]

Du sollst sie ja damit nicht ausliefern, sondern nur beim Entwicklen nutzen.

[Bernhard Geyer]

Zitat von mirage228:

Zitat von Bernhard Geyer:

In der Jedi Code Library gibt es eine Unit die dir die "C-Like-Makros" __LINE__ und ähnliches bereitstellt.
Funktioniert jedoch nur wenn auch entsprechende Debug-Infos (TD32-Debuginfos) in die Exe kompiliert wurden.

Die TD32 machen die EXEn doch locker doppelt und dreifach so groß oder?

Aber ohne entsprechende Infos bekommst Du die Zeilennumer nicht raus.
Erst bei .NET ist sowas auch ohne Debug-Infos möglich.

[Union]

Sehr gut ist auch EurekaLog, das ist zwar nicht kostenlos, aber bläht die EXE nur um ca. 5% auf. Dafür kriegst Du dann sowas (auf Wunsch auch automatisch per SMTP):

Code:

Exception:
----------------------------------------------------
  2.1 Date   : Tue, 1 Feb 2005 01:17:21 +0100
  2.2 Address: 005261AF
  2.3 Module : lager.exe
  2.4 Type   : EADSDatabaseError
  2.5 Message: tblBestand: Dataset not in edit mode.
...
|0052819C|lager.exe   |adsdata.pas  |TAdsDataSet    |DataEvent                   |7895 |
|005108AE|lager.exe   |DB.pas       |TDataSet       |MoveBy                      |10134|
|00510708|lager.exe   |DB.pas       |TDataSet       |MoveBy                      |10084|
|005108F6|lager.exe   |DB.pas       |TDataSet       |Next                        |10144|
|005108D0|lager.exe   |DB.pas       |TDataSet       |Next                        |10141|
|0075386D|lager.exe   |bestand.pas  |TfrmBestand    |btnVorClick                 |417  |

[Robert Marquardt]

Die Debug-Extension der JCL komprimiert das Map-File und tackert es als eigenes Segment an das EXE.

[Viktorii]

Kann Delphi (XE) sowas mittlerweile von Hause aus?

[Viktorii]

*push*