Fórum Validação de Carga Horária #254782
17/10/2004
0
Tenho um campo tipo varchar tamanho 6. Coloquei um máscara direto no campo através da Table da seguinte forma (999:99;1;_). Como posso verificar se o usuário digitou todos os itens sendo os dois últimos zero. Caso não tenha digitado transmitir uma mensagem.
Valeu a força!!
JR.
Valeu a força!!
JR.
Jrjoliv2003
Curtir tópico
+ 0
Responder
Posts
17/10/2004
Edilcimar
no on exit de um maskedit por exemplo
var
parte1, parte2 : string;
begin
parte1 := trim(Copy(Maskedit1.text,1,3);
parte2 := trim(Copy(Maskedit1.text,5,2);
if length(parte1) < 3 then
begin
showmessage(´qualquer mensagem´);
maskedit1.setfocus;
end;
if length(parte2) < 2 then
faça a mesma coisa
var
parte1, parte2 : string;
begin
parte1 := trim(Copy(Maskedit1.text,1,3);
parte2 := trim(Copy(Maskedit1.text,5,2);
if length(parte1) < 3 then
begin
showmessage(´qualquer mensagem´);
maskedit1.setfocus;
end;
if length(parte2) < 2 then
faça a mesma coisa
Responder
Gostei + 0
17/10/2004
Jrjoliv2003
Valeu a dica. Resolvido!!
Ficou assim:
hora:=trim(Copy(dbedit1.text,1,3));
minuto:=trim(Copy(dbedit1.text,5,2));
if (length(hora) < 3) then
begin
Application.MessageBox(´Carga Horária Inválida!´,
´::::: SCT ::::: Cadastro de Módulos´, MB_OK + MB_ICONEXCLAMATION);
DBEdit1.SetFocus;
exit;
end;
if (length(minuto) < 2) then
Begin
Application.MessageBox(´Carga Horária Inválida!´,
´::::: SCT ::::: Cadastro de Módulos´, MB_OK + MB_ICONEXCLAMATION);
DBEdit1.SetFocus;
exit;
end;
JR.
Ficou assim:
hora:=trim(Copy(dbedit1.text,1,3));
minuto:=trim(Copy(dbedit1.text,5,2));
if (length(hora) < 3) then
begin
Application.MessageBox(´Carga Horária Inválida!´,
´::::: SCT ::::: Cadastro de Módulos´, MB_OK + MB_ICONEXCLAMATION);
DBEdit1.SetFocus;
exit;
end;
if (length(minuto) < 2) then
Begin
Application.MessageBox(´Carga Horária Inválida!´,
´::::: SCT ::::: Cadastro de Módulos´, MB_OK + MB_ICONEXCLAMATION);
DBEdit1.SetFocus;
exit;
end;
JR.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)