Fórum Verificar DBEdits #299836
18/10/2005
0
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!!
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
Curtir tópico
+ 0
Responder
Posts
18/10/2005
Bruno.preste.ap
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
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
Responder
Gostei + 0
18/10/2005
Lucianobarreto
Tente algo assim, separado para cada DdEdit;
Veja se ajuda em algo
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
Responder
Gostei + 0
18/10/2005
Martins
Cara!!
Só uma idéia tá, depois vc implementa, cria uma função para checar para vc e fica tudo show de bola.
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)