MaskEdit como validar
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
Curtidas 0
Respostas
Carlos Bernardo
25/05/2014
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;
GOSTEI 0