2

Quero mudar o evento OnTimer de um TTimer no meu projeto em tempo de execução, tentei da seguinte forma: Timer1.OnTimer:= ('close'); Mas o Delphi informa isto: (E2010 Incompatible types: 'TNotifyEvent' and 'string'), como poderei converter a String 'Close' para TNotifyEvent?

3 Respostas 3

2

Para usar um arquivo .INI; Primeiro criar um arquivo do tipo .ini com o conteúdo exemplo:

[P_LOG]

comando = teste

Função para fazer a leitura do arquivo .ini:

function TForm1.LeIni(sIndice, sCampo: string): string;
var
  ArqIni: TIniFile;
begin
  try
    Result := '';
    ArqIni := TIniFile.Create(ExtractFilePath(Application.ExeName) +'Teste.ini');
    try
    Result := Trim(ArqIni.ReadString(sIndice, sCampo, ''));
    finally
    ArqIni.Free;
    end;
  except
    ShowMessage
    ('Não foi possível encontrar o arquivo de Parâmetros .ini');
  end;

end;

Usando a função

procedure TForm1.Button3Click(Sender: TObject);
 var
  ConteudoArquivoINI :String;
begin
 ConteudoArquivoINI := LeIni('P_LOG', 'comando')) the
end;
2

Você deve enviar uma Procedure para o Ontimer, e não uma String. Se sua intenção com a String 'Close' for fechar o Formulario é simples, crie uma Procedure com o tipo (Sender: TObject) com o comando Close:

procedure FecharFormulario(Sender: TObject);
begin
  Close;
end;

Para o Evento OnTimer você faz:

Timer1.OnTimer := FecharFormulario;
2
  • E se eu quiser dar a função do evento através de parâmetros estabelecidos por um arquivo INI? Commented 29/10/2015 às 22:37
  • 1
    Ai voltamos a estaca Zero, onde você não deve enviar String para o Evento! Commented 30/10/2015 às 0:54
0

Dá pra fazer algo como criar um record para armazenar o nome de cada procedimento:

type mrec = record nome: string; proc: procedure(Sender: TObject) of Object; end; ... var s : string; procs: array of mrec; begin Setlength(procs, 2); procs[0].nome := 'Button8Click'; procs[0].proc := Button8Click; procs[1].nome := 'Button6Click'; procs[1].proc := Button6Click; end; ... procedure ExecutaPeloNome(nome: string); var i: integer; begin for i := 0 to length(procs) - 1 do if procs[i].nome = nome then begin procs[i].proc(nil); break; end; end; ... ExecutaPeloNome('Button8Click');

Honestamente, não acho que vale a pena!

1
  • essa linha: proc: procedure(Sender: TObject) of Object; pode ser: proc: TNotifyEvent; Commented 5/04/2019 às 17:30

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .