aktuelle Quellcodezeile im Programm ermitteln

[jus]

Zitat von DeddyH:

Schau Dir mal Assertions an.

Vielen Dank DeddyH!

So wie ich es verstanden habe, kommt bei Assert immer eine Messagebox. Damit ich die Ausgabe in einer Logdatei verwenden kann, habe ich folgende Quick&Dirty Lösung zum Umleiten der Meldung verwendet, für den Fall, dass jemand so eine Lösung benötigt:

Delphi-Quellcode:

  procedure AssertErrorHandler(const Message, Filename: string;  LineNumber: Integer; ErrorAddr: Pointer);

implementation

procedure DoMessage(Message, Filename: String; LineNumber: Integer; ErrorAddr: Pointer);
var
  S: String;
begin
  S := Format('%s (%s, line %d, address $%x)',
    [Message, Filename, LineNumber, Pred(Integer(ErrorAddr))]);
  WriteToLogFile(s);// <----- ist nur exemplarisch gemeint  ;-)
  //OutputDebugString(PChar(S));
end;

procedure AssertErrorHandler(const Message, Filename: string;  LineNumber: Integer; ErrorAddr: Pointer);
{ No local variables. Not compiler generated temporary variables. }
{ Using the call stack here will cause Access Violation errors. }
begin
  DoMessage(Message, Filename, LineNumber, ErrorAddr);
//  raise EMyAssert.Create('Boom!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  System.AssertErrorProc := @AssertErrorHandler;
end;

Ich habe den obigen von "AssertErrorProc (Delphi)" genommen und ein wenig gekürzt.

Lg,
jus