Fórum Passar Parametro TCustomEdit #361568

:idea:
Olá a todos, como passar esses dados por parametro.


type
TFavorecido = record
CampoEdit1 : TCustomEdit;
CampoEdit2 : TCustomEdit;
NomedaFuncao : TProcedure;
TituloFormulario : string;
end;


Favorecido.CampoEdit1 := ´EdtFavorecido´; =>> ERRO - Incompatible types TCustomEdit and String

Favorecido.CampoEdit2 := ´EdtFavorecido´;
Favorecido.NomedaFuncao := PsqFornecedor;
Favorecido.TituloFormulario := ´Baixa de Contas a Pagar´;

A função que fará uso:

If FPesquisa(Favorecido.CampoEdit1, Favorecido.CampoEdit2, Favorecido.NomedaFuncao) = true then

...
..
..

Neto