Zur Laufzeit, Zeilennummer feststellen

[Der schöne Günther]

Ohne großen Aufwand kenne ich nichts außer Assert(..)

Delphi-Quellcode:

procedure p(const Message, Filename: string; LineNumber: Integer; ErrorAddr: Pointer);
begin
   ShowMessage( LineNumber.ToString() );
end;

procedure TForm19.Button1Click(Sender: TObject);
begin
   System.AssertErrorProc := p;
   assert(false, 'message');
end;

Kannst du ein praktisches Beispiel geben wofür du das brauchst? Geht sicher besser.