Validar data com maskedit

Question

A unica rotina para validar data que encontro aqui � a com o TEdit
Que � a Seguinte:

[color=red:ef982fa922]try
StrToDate(Edit1.Text);
except
on EConvertError do
ShowMessage (�Data Inv�lida!);
end;[/color:ef982fa922]

E com o MaskEdit, existe alguem que conhe�a? :?: :?:
No aguardo de uma :idea:

Abra�os

Okama · Answer

[quote:035c0d7654=�wagnerg�]A unica rotina para validar data que encontro aqui � a com o TEditQue � a Seguinte:try [b:035c0d7654]StrToDate([color=red:035c0d7654]MaskEdit1.Text[/color:035c0d7654]); [/b:035c0d7654]except on EConvertError do ShowMessage (�Data Inv�lida!); end;E com o MaskEdit, existe alguem que conhe�a? :?:  :?: No aguardo de uma :idea:Abra�os[/quote:035c0d7654]...

Wgm8 · Answer

procedure TForm1.MaskEdit10Change(Sender: TObject);
begin
try
StrToDate(MaskEdit10.Text);
except
on EConvertError do
ShowMessage (�Data Inv�lida!);
end;
end;

Acusa os seguintes erros:

[Error] DeloitteMain.pas(1471): Unterminated string
[Error] DeloitteMain.pas(1472): �)� expected but �END� found
[Error] DeloitteMain.pas(1474): �.� expected but �;� found

4_olho · Answer

Antes de mais nada, procure SEGUIR as regras de conduta evitando t�tulos como S� PARA OS BONS etc... Substitua pelo motivo de sua consulta.

Se prestar aten��o em seu c�digo e, consequentemente, no c�digo do colega Okama, ver� que falta uma aspa na linha

ShowMessage (�Data Inv�lida!);

que deve ficar assim

ShowMessage (�Data Inv�lida!�); // uma aspa DEPOIS do !

O Delphi acusou o erro �string n�o terminada�, as duas outras mensagens n�o devem ser consideradas, pois s�o frutos do primeiro erro.

F�rum Validar data com maskedit #158220