[Resolvido] Tratar Campos Obrigatórios

[Popin 0]

Ola Pessoal, estou tratando os campos obrigatórios dos meus cadastros da seguinte maneira:

 

 

if (DBEdit2.Text = '') then

begin

MessageDLG('PREENCHA O NOME DO CLIENTE',mtInformation,[mbok],0);

DBEdit2.SetFocus;

Exit;

end

mas quando o campo tem maskara por exemplo CEP não estou conseguindo fazer. O que tenho que mudar no código?

e quando for um DBRaiogroup tipo de ativo ou inativo?

[Jhony ZaM 1]

Oi amiguinho seguinte cada _ da maskara é um espaço em branco, portanto para uma maskara de data não passar em branco faça tipo assim:

 

procedure TfrmPrincipal.BitBtn1Click(Sender: TObject);
begin
  if mskTeste.text = ('  /  /  ')  then
begin
  MessageDLG('PREENCHA O NOME DO CLIENTE',mtInformation,[mbok],0);
  mskTeste.SetFocus;
end;
end;
end.

Lembrando que a barra ou os outros campos diferentes de _ (anderline) devem ser colocados.

 

Espero ter ajudado vlw.

[Popin 0]

Oi amiguinho seguinte cada _ da maskara é um espaço em branco, portanto para uma maskara de data não passar em branco faça tipo assim:

 

procedure TfrmPrincipal.BitBtn1Click(Sender: TObject);
begin
  if mskTeste.text = ('  /  /  ')  then
begin
  MessageDLG('PREENCHA O NOME DO CLIENTE',mtInformation,[mbok],0);
  mskTeste.SetFocus;
end;
end;
end.

Lembrando que a barra ou os outros campos diferentes de _ (anderline) devem ser colocados.

 

Espero ter ajudado vlw.

 

Opa deu certo vlw.