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
Jose Silva

Jose Silva

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;
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar