Fazendo um Copy no delphi.

24/09/2021

Boa tarde.
Gostaria de saber se existe um m�todo para pegar parte de uma fun��o e fazer a copia apenas de uma determinada parte
no exemplo abaixo explico melhor o que estou querendo fazer:

function function_Carrega_Soma_LF_180: boolean;
var
texto, lbl, soma : string;

begin
  texto := 'function_Carrega_Soma_LF_180';
  soma := Copy(texto,26,3);
  lbl := 'frm_Resultados_LF.lbl_Soma_' + soma + '.Text';

  frm_Resultados_LF.lbl_Soma_180.Text :=
  //lbl :=
   IntToStr( TLotoFacil
      .New
      .ReceberValorSoma(StrToInt(soma))
      .CarregarResultadoSoma
      .ReceberValor);
end;

Estou querendo pegar a primeira linha do c�digo e pegar automaticamente somente o numero 180.
Na 6 linha do c�digo eu digitei e na 7 linha fiz o copy, mais queria pegar automaticamente a primeira linha do c�digo. � poss�vel isso?

Rubens Pena

Curtir t�pico + 0

Responder

Posts

25/09/2021

Emerson Nascimento

Vamos nos fazer entender

Voc� quer "pegar a primeira linha do c�digo" ou quer pegar o nome da fun��o/procedure que est� em execu��o?

Responder

Gostei + 0