Nome da variável para string

Delphi

23/09/2005

Olá a todos!

Amigos, pesquisei mas não encontrei...

Tenho costume de criar os objetos em tempo de execução, especialmente os não visuais...

Estou querendo transformar em string o nome da variável para poder melhorar alguns logs de erro meu.

var
_queryPesquisa : TADOQuery;
begin
  _queryPesquisa := nil;
  try
    try
      _queryPesquisa := TADOQuery.Create(nil);
      _queryPesquisa.BeforeOpen := minharotina;
      _queryPesquisa.Name := ´´; //Justamente aqui gostaria de uma rotina que me retornasse o nome ´_queryPesquisa´ pois na verdade quero colocar dentro de ´minharotina´, assim não precisaria mais desta linha.
    except
      (...)
    end;
  finally
    if (_queryPesquisa <> nil) then
      begin
      (...)
      end;
  end;
end;


Grato pela paciência de todos!


Marioguedes

Marioguedes

Curtidas 0
POSTAR