Fórum MaskEdit como validar #480135
25/05/2014
0
galera como faço para um maskedit ser validado
bem vamos la
supondo que eu tenha um maskedit com formatação para data
1º quando o usuário digitar ex
11/11/20__
não deixar ele sair somente quando preencher a data ssimm 11/11/2014
2º não permitir que digite
11/__/______
11/1_/______
11/11/1_____
11/11/11____
11/11/111_
11/__/______
e assim por diante somente quando
bem vamos la
supondo que eu tenha um maskedit com formatação para data
1º quando o usuário digitar ex
11/11/20__
não deixar ele sair somente quando preencher a data ssimm 11/11/2014
2º não permitir que digite
11/__/______
11/1_/______
11/11/1_____
11/11/11____
11/11/111_
11/__/______
e assim por diante somente quando
Jose Silva
Curtir tópico
+ 0
Responder
Posts
25/05/2014
Carlos Bernardo
Valida no evento onexit :
If Not ValiData(EDT_INI.Text) then
begin
Showmessage('Data Inválida !');
EDT_INI.clear;
EDT_INI.SetFocus;
end;
function ValiData(Data: string): Boolean;
begin
result := true;
try
StrToDate(Data)
except
on EConvertError do
Result := False;
end;
end;
If Not ValiData(EDT_INI.Text) then
begin
Showmessage('Data Inválida !');
EDT_INI.clear;
EDT_INI.SetFocus;
end;
function ValiData(Data: string): Boolean;
begin
result := true;
try
StrToDate(Data)
except
on EConvertError do
Result := False;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)