Fórum Problema ao Validar Data #314589

Olá amigo

vc poderia postar sua rotina para que possamos analisá-la?


Silvio Guedes

function Mensagem (Mens, Titulo: String ; Tipo: byte ): byte;
var Botoes : Integer;
begin
Botoes := mb_Ok;
case Tipo of
0 : Botoes := Mb_YesNo+mb_IconQuestion;
1 : Botoes := Mb_Ok+mb_IconExclamation;
2 : Botoes := Mb_Ok+mb_IconStop;
3 : Botoes := Mb_Ok+mb_IconInformation;
4 : Botoes := Mb_YesNoCancel+mb_IconQuestion;
end;
Result := Application.MessageBox(PChar(Mens) , Pchar(Titulo) , Botoes);
end;

procedure Aviso(Mens : String);
begin
Mensagem(Mens,´Aviso´,1);
end;

Function DataValida(StrD: string; ShowMessagem: Boolean = False ): Boolean;
var
Dt: TDateTime;
begin
Result := TryStrToDate(StrD, Dt);
if ( not Result ) and ( ShowMessagem ) then
Aviso( ´Data Inválida!´ );
end;

mas é o seguinte, o problema nao está na rotina, o problema esta pq NÃO entra na rotina qdo eu saio do campo DATA...

Tipo,

digito a data 10/10/2000 --> Blz // sai do campo vai no onExit e faz o teste na rotina perfeitamente, MAS,
digito a data 22/22/2222 --> da pau, nao entra no onExit gera o erro instantaneamente...

coloca o codigo de validacao no evento onValidade do campo (Field).

INFELIZMENTE CONTINUA FAZENDO A MESMA COISA

Galera.. Consegui acertar... se alguém tiver o mesmo problema que eu, basta colocar a validação no evento onSetText do campo (Field).

Abração pra todos