TEdit and TMaskEdit

Question

:?: Ol� a todos.Tenho uma fun��o no sistema que recebe como parametros dois Edit�s.Function FPsqCampoSelecao(Campo1,Campo2):Boolean;If FPsqCampoSelecao(EdtCod1,EdtCod2) = true then ........Meu problem...

Edilcimar · Answer

use vari�veis, assim vc pega o que estiver em edit ou maskedit, a� envia a vari�vel...

Neto · Answer

N�o posso usar vari�veis.Dentro da fun��o fa�o referencia ao Edit como .SetFocus, .Text, etc..Abra�osNeto...

Jos� Henrique · Answer

Tente fazer um castIf FPsqCampoSelecao((MaskEdtCod1 As TMaskEdit), (MaskEdtCod2 As TMaskEdit)) = true� s� um palpite....

Steve_narancic · Answer

ao inves de TEdit ou TMaskedit, tente usar uma classe ancestral das duas como a TCustomEdit...

Neto · Answer

Ok,  steve_narancic, acho sua sugest�o legal, mas como posso fazer isso.Voc� poderia me dar uma dica/exemplo aplicavel a minha necessidade  para eu implementar..Abra�osNeto...

Felipeucc · Answer

1� mude os parametros de seu m�todo. Em vez de serem TEdit, passe para TCustomEdit

2� na implementa��o do m�todo, fa�a uma verifica��o do tipo

if (parametro1 is TEdit) then
(parametro1 as TEdit).text := �� um Edit�;

if (parametro1 is TMaskEdit) then
(parametro1 as TMaskEdit).EditMask := �99/99/99�;

Acho que � por a� que nosso amigo quis dizer....

Espero ter ajudado

Steve_narancic · Answer

passando como parametro uma classe ancestral semelhante vc podera acessar os met�dos semelhantes como neste caso!

procedure SetarFocus(CustomEdit: TCustomEdit);
begin
  CustomEdit.SetFocus
end;

Neto · Answer

Grande dica Steve_narancicfuncionou legalabra�os e muito obrigaduuuuuu....

F�rum TEdit and TMaskEdit #350532