在Pascal中是否有等效于C的__LINE__宏？

Question

Pascal中是否有与C＆＃39 {1}}相同的宏？也许是一个功能？

__LINE__

应该打印：

{ Prints the line number in source file. }
begin
  write(__LINE__)
end.

Answer 1

如果您使用的是Free Pascal，则可以使用：{$I %LINE%}

我不知道构造在现有编译器之间的可移植性。