mesagem quando o edit ficar sem ser digitado

Question

Pessoal preciso da ajuda de vcs.tenho um pequeno programa de cadastro e estou dando uma encrementada no mesmo e uma delas �, quando o usuario n�o digitar nodbedit o sistema enviar uma mensagem do tipo...

Lord_angel · Answer

opa, falta else e .Text no seu codigo, tenta assim

if DBEdit1.Text = �� then ShowMessage(�Nome nao preenchido�)
else if DBEdit2.Text = �� then ShowMessage(�Endereco nao preenchido�)
else TbClients.Post;

duas observa��es, nao � necess�rio o uso de begin..end quando somente uma linha de codigo estiver entre o la�o, e voce pode utilizar trim(deditX.text) <> ��, para evitar que espacos sejam validados..

vlw?

f�bio nascimento.

Lord_angel · Answer

opa, falta else e .Text no seu codigo, tenta assim

if DBEdit1.Text = �� then ShowMessage(�Nome nao preenchido�)
else if DBEdit2.Text = �� then ShowMessage(�Endereco nao preenchido�)
else TbClients.Post;

duas observa��es, nao � necess�rio o uso de begin..end quando somente uma linha de codigo estiver entre o la�o, e voce pode utilizar trim(deditX.text) <> ��, para evitar que espacos sejam validados..

vlw?

f�bio nascimento.

Ggean · Answer

Olhe, :shock:

for i:=0 to componentcount -1 do
begin
if(components[i] is Tdbedit) and (components[i] as Tdbedit).text=��) then
begin
showmessage(components[i]as Tdbedit).FieldName+� Nao pode ficar em branco�);
(components[i]as Tdbedit).setfocus;
exit;
end;
end;

Nao testei por isso pode precisar de algum reparo na sintaxe.
avise me.

Um abraco. :lol:

Ggean · Answer

Olhe, :shock:

for i:=0 to componentcount -1 do
begin
if(components[i] is Tdbedit) and (components[i] as Tdbedit).text=��) then
begin
showmessage(components[i]as Tdbedit).FieldName+� Nao pode ficar em branco�);
(components[i]as Tdbedit).setfocus;
exit;
end;
end;

Nao testei por isso pode precisar de algum reparo na sintaxe.
avise me.

Um abraco. :lol:

Andy · Answer

Obrigadooooooooo !!!!!!PESSOAL......

F�rum mesagem quando o edit ficar sem ser digitado #165605