verificar os dbedits!!

Delphi

14/10/2005

como verificar se os DBEdit´s do formulário estão em branco??
e mostrar uma mensagem pedindo pra preenchelas!

agradecimento!!!


Bruno.preste.ap

Bruno.preste.ap

Curtidas 0

Respostas

Zumbi

Zumbi

14/10/2005

vc pode fazer da seguinte forma:

Procedure VerificaDBEdit(Sender: TObject);
Var
i : Integer;
begin
 for i := 0 to (Sender as TForm).ComponentCount -1 do
 begin
   if (Sender as TForm).Components[i] is TDBEdit then
     if TDBEdit((Sender as TForm).Components[i]).Text =´´ then
       begin
         showmessage(´A campos em branco´);
       end;
 end;
end;



GOSTEI 0
Bruno.preste.ap

Bruno.preste.ap

14/10/2005

e como é que eu uso essa procedure, eu ja coloquei ela na Unit do formulario que estão os DBEdits e o meu botão salvar estão com actionlist, tem problema se eu colocar no evento onclick deste butao ou eu coloco em um evento tipo beforePost de um clientdataset??

se quiser mais informações pode me pedir!!!


GOSTEI 0
POSTAR