有谁知道Delphi中定位源程序哪一行的函数是什么

Question

我要打印日志看程序运行到哪个文件的第几行了,不知Delphi是否有这样的函数或宏定义就像Unix下的_FILE_,_LINE_

Answer 1

//参考如下代码～～
procedure MyAssertErrorProc(const Message, Filename: string;
  LineNumber: Integer; ErrorAddr: Pointer);
begin
  { TODO : 写日志 }
  ShowMessage(Format('%s,%d', [Filename, LineNumber])); //try
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := '测试测试'; Assert(False); //定位
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  AssertErrorProc := MyAssertErrorProc;
end;