How to get line number at runtime

by

You can indeed use Assert for this. Write a procedure that matches the signature dictated by the TAssertErrorProc type, and then do whatever you want there. To preserve the expected behavior, you should probably call the original handler after you’re finished.

procedure MichaelAssertProc(const Message, Filename: string;
  LineNumber: Integer; ErrorAddr: Pointer);
begin
  LogMessage(...);
  SysUtils.AssertErrorHandler(Message, Filename, LineNumber, ErrorAddr);
end;

Assign that procedure to System.AssertErrorProc sometime while your program starts up.

AssertErrorProc := MichaelAssertProc;

More Related Contents:

  1. Why should I not use “if Assigned()” before accessing objects?
  2. Why cannot take address to a nested local function in 64 bit Delphi?
  3. Debugging Access Violation errors?
  4. Which variables are initialized when in Delphi?
  5. System Error. Code: 8. Not enough storage is available to process this command
  6. Delphi 2010: How to save a whole record to a file?
  7. Registration-free COM/DLL?
  8. I do not understand what Application.ProcessMessages in Delphi is doing [closed]
  9. How do I let Delphi know I’ve already handled an exception?
  10. How to send a HTTP POST Request in Delphi using WinInet api
  11. Delphi Conversion Unicode Issues
  12. Why can Delphi DLLs use WideString without using ShareMem?
  13. WWW server reports error after POST Request by Internet Direct components in Delphi
  14. How to add manifest info into delphi project
  15. How to retrieve cpu usage per process
  16. Component Creation – Joining Components Together?
  17. How to detect “dangling pointers” if “Assigned()” can’t do it?
  18. Modifying or deleting a line from a text file the low-level way?
  19. Standard URL encode function?
  20. Form is hidden behind other forms when ShowModal is called
  21. How to simulate bit-fields in Delphi records?
  22. TProgressBar never fills up all the way – seems to be updating too fast? [duplicate]
  23. What are major incentives to upgrade to D2009 (Unicode excluded)?
  24. Masking floating point exceptions with Set8087CW, SetMXCSR and TWebBrowser
  25. Can you make a Borderless Application Main Window in Windows, without WS_POPUP style?
  26. Resize PNG image
  27. Delphi control that could mimic “Add-ons|Extension list” of Firefox?
  28. How can I make AllocateHwnd threadsafe?
  29. Can 48×48 or 64×64 icons be obtained from the Vista Shell?
  30. How to cast a Interface to a Object in Delphi

Leave a Comment