Passar Parametro TCustomEdit
: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
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
Neto
Curtidas 0
Respostas
Luiz Henrique
24/07/2008
Bom dia Jonas...
´...´ string para TCustomEdit, nao vai mesmo...
teria que ser +- isso...
EdtFavorecido: TCustomEdit;
...
FPesquisa(EdtFavorecido,....
...
Favorecido.CampoEdit1 := EdtFavorecido;
espero que te ajude...
T+
´...´ string para TCustomEdit, nao vai mesmo...
teria que ser +- isso...
EdtFavorecido: TCustomEdit;
...
FPesquisa(EdtFavorecido,....
...
Favorecido.CampoEdit1 := EdtFavorecido;
espero que te ajude...
T+
GOSTEI 0
Powerslave7
24/07/2008
Vc tá tentando fazer com que o texto que está no [b:09dd8da70c]edtFavorecido[/b:09dd8da70c] vá para o [b:09dd8da70c]Favorecido.CampoEdit1[/b:09dd8da70c] ???
Se for isso, vc tem que usar a propriedade Text dos dosi edits, tipo:
[b:09dd8da70c] Favorecido.CampoEdit1.Text := edtFavorecido.Text [/b:09dd8da70c]
E na pesquisa vc tb deve usar a propriedade Text dos dois ´CampoEdit´ do ser record.
To falando aqui mas na verdade eu não entendi direito o que vc quer fazer...
Foi mal ae qualquer asneira que eu tenha falado... rsrs
Abraço!
Se for isso, vc tem que usar a propriedade Text dos dosi edits, tipo:
[b:09dd8da70c] Favorecido.CampoEdit1.Text := edtFavorecido.Text [/b:09dd8da70c]
E na pesquisa vc tb deve usar a propriedade Text dos dois ´CampoEdit´ do ser record.
To falando aqui mas na verdade eu não entendi direito o que vc quer fazer...
Foi mal ae qualquer asneira que eu tenha falado... rsrs
Abraço!
GOSTEI 0
Neto
24/07/2008
Gente obrigado pela ajuda.
To mudando tudo.
Neto
To mudando tudo.
Neto
GOSTEI 0