procedure com parâmetro tipo TFORM e TEDIT?
Olá tudo bem?
Tenho um formulário para realizar uma pesquias e disponho dos seguintes componentes no formulário:
Um edit e um dbGrid e a medida que o usuario vai digitando é realizado um filtro, mas o problema é:
Ao clicar no DbGrid desejo pegar as informações e levá-las para o formulário que chamou a pesquisa.
Eu fiz assim
frmEditora.edCodCidade.Text := DBGrid1.DataSource.DataSet.Fields[0].AsString;
frmEditora.edCidade.Text := DBGrid1.DataSource.DataSet.Fields[1].AsString;
Até aqui tudo bem.
Mas eu quero passar o nome do formulario e do edit como parâmetro, ou seja, quero que qualquer formulário utilize esta pesquisa, então, eu quero fazer da seguinte forma:
procedure TfrmPesquisa.devolverPesquisa(formularioQueChamou : TForm; editDoFormularioQueChamou : TEdit);
begin
formularioQueChamou.editDoFormularioQueChamou.Text := DBGrid1.DataSource.DataSet.Fields[0].AsString;
editDoFormularioQueChamou := DBGrid1.DataSource.DataSet.Fields[1].AsString;
end;
Mas dá erro !
Tenho um formulário para realizar uma pesquias e disponho dos seguintes componentes no formulário:
Um edit e um dbGrid e a medida que o usuario vai digitando é realizado um filtro, mas o problema é:
Ao clicar no DbGrid desejo pegar as informações e levá-las para o formulário que chamou a pesquisa.
Eu fiz assim
frmEditora.edCodCidade.Text := DBGrid1.DataSource.DataSet.Fields[0].AsString;
frmEditora.edCidade.Text := DBGrid1.DataSource.DataSet.Fields[1].AsString;
Até aqui tudo bem.
Mas eu quero passar o nome do formulario e do edit como parâmetro, ou seja, quero que qualquer formulário utilize esta pesquisa, então, eu quero fazer da seguinte forma:
procedure TfrmPesquisa.devolverPesquisa(formularioQueChamou : TForm; editDoFormularioQueChamou : TEdit);
begin
formularioQueChamou.editDoFormularioQueChamou.Text := DBGrid1.DataSource.DataSet.Fields[0].AsString;
editDoFormularioQueChamou := DBGrid1.DataSource.DataSet.Fields[1].AsString;
end;
Mas dá erro !
Sandrodantas
Curtidas 0