Validar data com maskedit

Delphi

06/05/2003

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


Wagnerg

Wagnerg

Curtidas 0

Respostas

Okama

Okama

06/05/2003

A unica rotina para validar data que encontro aqui é a com o TEdit Que é 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



GOSTEI 0
Wgm8

Wgm8

06/05/2003

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


GOSTEI 0
4_olho

4_olho

06/05/2003

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.


GOSTEI 0
POSTAR