Verificar DBEdits

Delphi

18/10/2005

quero verificar os dbedits dos campos que são obrigatorias em minha tela de cadastro (só os obrigatórios) e mostrar uma mensagem pedindo para preenche-los!!

muito obrigado!!

[color=red:2b6abbda5a]Título editado por Massuda Removido: ´Quero uma dica bacana!!´ Use sempre um título que dê uma idéia do conteúdo da mensagem e que seja o mais objetivo possível.[/color:2b6abbda5a]



Bruno.preste.ap

Bruno.preste.ap

Curtidas 0

Respostas

Bruno.preste.ap

Bruno.preste.ap

18/10/2005

eu to usando isso aqui mas ta dando erro:

if FormControlePortaria.dbedit1.Text = ´´ then
begin
showmessage(´Digite a identificação da Portaria!´);
FormControlePortaria.dbedit1.SetFocus;
end
else
if FormControlePortaria.dbedit2.Text = ´´ then
begin
showmessage(´Digite a identifiação do Memorando!´);
FormControlePortaria.dbedit2.SetFocus;
end


GOSTEI 0
Lucianobarreto

Lucianobarreto

18/10/2005

Tente algo assim, separado para cada DdEdit;
If DbEdit?.Text = ´´ then
  begin
    Mostra_Mensagem;
    Posiciona_O_Foco;
    Abort; //Ele para a execução do resto do código
  end;


Veja se ajuda em algo


GOSTEI 0
Martins

Martins

18/10/2005

Cara!!
Só uma idéia tá, depois vc implementa, cria uma função para checar para vc e fica tudo show de bola.
var
 i: integer;
begin
 for i:= 0 to ComponentCount -1 do
   If (Components[i] is TEdit) then
    begin
       if TEdit(Components[i]).Text= ´´ then
         ShowMessage(´Em branco´)
       else
         ShowMessage(´O  ´+TEdit(Components[i]).Name+´ está preenchido!´);
    end;
end;



GOSTEI 0
POSTAR