Deiphi 使用 JclDebug 來印出目前行號等資訊

需先安裝 JEDI VCL for Delphi
Menu 上 Project->Options->Linker->Map file 選擇 Detailed 按 OK

uses
  JclDebug;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Memo1.Lines do
  begin
    Clear;
    Add('FileName: '  + __FILE__);
    Add(Format('Module: %s, Procedure %s, Line: %d', [
      __MODULE__,
      __PROC__,
      __LINE__
    ]));
  end;
end;
{
FileName: Unit1.pas
Module: Unit1, Procedure TForm1.FormCreate, Line: 35
}