Fórum verificar os dbedits!! #299520

14/10/2005

0

Delphi

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

Responder

Posts

14/10/2005

Zumbi

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;



Responder

Gostei + 0

14/10/2005

Bruno.preste.ap

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!!!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar