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