| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
renanbg
Colaborador
Registrado: Quinta-Feira, 12 de Abril de 2012
Mensagens: 1158
|
 Enviada: Qui Ago 23, 2018 3:34 pm Assunto: [resolvido] Validação em 3 edits |
 |
|
Amigos, preciso validar 3 edits da seguinte forma, ao gravar.
Se todos forem vazios, grava
Se algum estiver preenchido, devo alertar o usuario para preencher os outros 2.
Se 2 estiverem preenchidos, alerto o usuario que ainda falta um a ser preenchido.
Editado pela última vez por renanbg em Qui Ago 23, 2018 5:18 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Qui Ago 23, 2018 4:27 pm Assunto: |
|
|
Boa tarde,
Segue um esboço de código para teste:
| Código: | var
QtdEditsVazios: integer;
begin
QtdEditsVazios := 0;
if Edit1.Text = '' then
Inc(QtdEditsVazios);
if Edit2.Text = '' then
Inc(QtdEditsVazios);
if Edit3.Text = '' then
Inc(QtdEditsVazios);
if (QtdEditsVazios = 0) or
(QtdEditsVazios = 3) then
// grava
else
ShowMessage(Format('Falta preencher %d Edit(s)', [QtdEditsVazios])); |
Espero que ajude
Editado pela última vez por imex em Dom Out 01, 2023 5:38 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
|
anderbelluno
Colaborador
Registrado: Quarta-Feira, 23 de Novembro de 2011
Mensagens: 1030
Localização: Cianorte-PR
|
| Enviada: Qui Ago 23, 2018 4:31 pm Assunto: |
|
|
Provavelmente um If .... or .... and... resolveria.
ex:
If (edit1.text ='') and (edit1.text ='') and (edit1.text ='') then
salva ........
ou tbm
If (edit1.text <>'') or (edit1.text <>'') or (edit1.text <>'') then
raise exception.create('preencha todos os edits....');
Mais ou memos isso ai.
Não testei nada, mas creio que siga essa lógiga. Posso estar errado, mas acho que seria a melhor solução. |
|
| Voltar ao Topo |
|
|
renanbg
Colaborador
Registrado: Quinta-Feira, 12 de Abril de 2012
Mensagens: 1158
|
| Enviada: Qui Ago 23, 2018 5:19 pm Assunto: |
|
|
Obrigado pessoal. A solução do imex me pareceu mais adequada ao meu caso.
Abraços |
|
| Voltar ao Topo |
|
|
anderbelluno
Colaborador
Registrado: Quarta-Feira, 23 de Novembro de 2011
Mensagens: 1030
Localização: Cianorte-PR
|
| Enviada: Qui Ago 23, 2018 6:12 pm Assunto: |
|
|
Não vale. Ele foi mais rápido que eu. Respondeu enquanto eu escrevia. kkkkkkkkk
brincadeira. Importante é ter resolvido.
Show. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
