Lista campos obrigatorios s/preenchimento em um ShowMessage

Delphi

26/02/2004

Saudacoes pessoal,

Estou querendo lista os campos obrigatorios sem preenchimento em um formulario para o usuario nao ficar procurando qdo gravar o registro alguem tem um rotina [funcao ou procedimento] pra me passar.

Desde ja agradeço pela atenção.

Ressalto que poderá ser lista em um :

- SHOWMESSAGE
- MESSAGEBOX
- MESSAGEDLG


Jonasaf

Jonasaf

Curtidas 0

Respostas

Ariovaldo

Ariovaldo

26/02/2004

Não poderia ser colocado uma indicação no formulário que o campo é obrigatório e no after post vc verifica um a um e ai dá mensagem para o usuário


GOSTEI 0
Faustolisk

Faustolisk

26/02/2004

Crie uma variável string de nome ´camposvazios´. Depois Crie outra variável do tipo integer chamada cont.
Verifique se os campos estão vazios, desse modo:

cont:=0;
if (edit1.text=´´) then
begin
cont:=cont+1;
camposvazios:=camposvazios+´ Nome´;
end;
//faça isso com todos os campos.
//Depois coloque o seguinte código:
if (cont>0) then
Showmessage(´ Os seguintes campos não foram preenchidos: ´+camposvazios)
else
Showmessage(´Todos os campos foram preenchidos´);

Obs: Coloque esse código dentro do seu botão de verificação.


GOSTEI 0
POSTAR