请问delphi中有类似c中__LINE__的宏定义吗

Question

或实现相同的功能

Answer 1

沒可以使用 
tryexcept
      on e: Exception do
      begin
        try
          Assert(False);
        except
          on e1: Exception do
          begin //on
            ShowMessage(e1.Message); // e1.Message　包括了　文件名　行數　是Assert處的
          end;
        end;
      end;
    end;