jogar numa vari�vel o valor da linha que est� exeutando

Question

Algu�m sabe como posso retornar o valor da linha que o meu projeto est� executando em tempo de execu��o. Retornando este valor para uma vari�vel. E se poss�vel se algu�m souber como retornar qual fun��o ou unit que ele se encontra.

Beppe · Answer

� meio complicado...o preprocessador n�o oferece isto, ent�o s� resta o runtime...

Exemplo:

var
  LineNumber: Integer;

procedure MyAssert(const M, F: string; L: Integer; E: Pointer);
begin
  LineNumber := L;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  S: TAssertErrorProc;
begin
  I := 0;
  S := AssertErrorProc;
  AssertErrorProc := MyAssert;
  try
    Assert(I <> 0); // a linha retornada � a linha este assert
  finally
    AssertErrorProc := S;
  end;
  Caption := IntToStr(LineNumber);
end;

F�rum jogar numa vari�vel o valor da linha que est� exeutando #231714