Sobre valida��o de Data

Question

Pessoal, h� tempo isso me incomoda, tenho um campo Date (Firebird) e uso as minhas valida��es no OnValidade do TField, e quando eu saio do campo de data antes de executar o meu OnValidate o delphi ger...

Rssampaio · Answer

Vc est� utilizando mascara no campo de data? Se vc tiver verifique se na mascara vc t� usando 1 na mascara. Caso esteja substitua 1 por 9....

Bruno Belchior · Answer

eu j� uso o 9......

Sandra · Answer

Bruno,Teste a function [b:aec74a0958]TryStrToDate[/b:aec74a0958]. Um exemplo:[code:1:aec74a0958]var  data: TDateTime;begin  if (TryStrToDate(DBEdit1.Text, data)) then begin    // Data v�lida  end else begin    // Data inv�lida  end;end;[/code:1:aec74a0958]Mais informa��es, no help do Delphi. :D...

Bruno Belchior · Answer

eu fa�o essa valida��o no OnValidate s� que o delphi antes de executar o OnValidate parece que executa uma valida��o de Data (no caso nos campos TDateField) eu gostaria era de desativar isso...

Marco Salles · Answer

:idea: Talvez , n�o seria mais f�cil ao inves de �desativar isto� voce usar um componente que n�o fosse um controle consciente de dados...N�o lhe serve esta id�ia :?:  :?:  :?:...

Bruno Belchior · Answer

sim Marcos � o que sempre utilizei mas a empresa que trabalho faz quest�o de utilizar data-aware......

Marco Salles · Answer

[quote:7ea59c1c3a]sim Marcos � o que sempre utilizei mas a empresa que trabalho faz quest�o de utilizar data-aware... [/quote:7ea59c1c3a]  enrendo... Ent�o sugiro que voce utilize o evento onSetText Do campo..tipo o isto :[code:1:7ea59c1c3a]procedure TForm1.Table1NomeCampoSetText(Sender: TField);begin  try    sender.Value:=strtodate(Text);  except   on E:Exception do     begin       // showmessage(�Data inv�lida�);  pode colocar mensagem ou n�o       // sender.value:= se quiser corrija para un numero v�lido ou      //sender.text := �� ;  se aceitar     end;end;end;[/code:1:7ea59c1c3a]Quando voce estiver rodando o programa va delphi , a mensagem ainda aparecer�.. Mas quando voce estiver rodando o programa via execut�vel , o erro ser� tratado a tempo e a mensagem n�o sera vista pelo usu�rio.. A n�o ser que voce escreva uma mensagem particular� isto que voce quer :?:  :?:  :?:...

Bruno Belchior · Answer

blz vou testar...

Bruno Belchior · Answer

a valida��o at� que funcionoum, por�m qualquer c�digo que coloco no OnSetText quando eu saio do DBEdit seu valor retorna ao inicial... parece que ele cancela a altera��o... :?:...

Marco Salles · Answer

[quote:39148e791f]a valida��o at� que funcionoum, por�m qualquer c�digo que coloco no OnSetText quando eu saio do DBEdit seu valor retorna ao inicial... parece que ele cancela a altera��o... [/quote:39148e791f][b:39148e791f]Voce esta fazendo algum outro tipo de valida��o em outro evento.. Por exemplo , OnValidade... [/b:39148e791f]O certo � ele cancelar a altera��o , caso o valor n�o seje v�lido.. Mas se for ele n�o deveria fazer isto... Talvez o que possa estar ocorrendo , com voce , s�o eventos que ficam se repetindo( Tipo , um fica chamando o outro de maneira recursiva) , ai nesse caso ele pode voltar ao seu valor inicialEnt�o temos que talvez analisar todo um processo e n�o um evento isolado......

Bruno Belchior · Answer

eu realmente uso o OnValidate mas quanto a recursividade n�o est� acontecendo n�o......

Marco Salles · Answer

[quote:057b4997fb]eu realmente uso o OnValidate [/quote:057b4997fb]Acho  que n�o precisa mais , pelo menos para este campo[quote:057b4997fb]mas quanto a recursividade n�o est� acontecendo n�o...[/quote:057b4997fb]a algum c�digo onexit no seu DbGrid :?:...

Bruno Belchior · Answer

n�o estou usando em um DbGrid mas sim em um DbEdit de qualquer forma n�o tem c�digo no seu OnExit e passei toda a valida��o para o OnSetText e... de nada valeu!...

Marco Salles · Answer

me intigrei com isto e abri o delphi , peguei uma tabela , paradox , e escrevi e testei o c�digo abaixo...

A Principio funcionou:::

P:S O evento ossetText que e testei Chama Table1Data_AdmissaoSetText, Troque pelo seu

procedure TForm1.Table1Data_AdmissaoSetText(Sender: TField;
  const Text: String);
var
 erro:Boolean;
 data:Tdate;
begin
begin
  try try
    erro:=False;
    data:=strToDate(text);
  except
   on E:Exception do
     begin
        erro:=True;
        showmessage(�Data inv�lida�); // pode colocar mensagem ou n�o
     end;
  end;
 finally
   begin
     if not erro then
       begin
         PlaySound(�Campainha do Windows XP�,0,snd_Async);
         TField(sender).OnSetText:=Nil;  //*************
         sender.AsDateTime:=Data;
//P:S O evento ossetText que e testei   Chama 
//Table1Data_AdmissaoSetText, Troque pelo seu
         TField(sender).OnsetText:=Table1Data_AdmissaoSetText; //******
       end;
   end;
 end;
end;
end;

[b:ad7af9490a]P:S talves as linhas de codigo gravadas por ******** Sejam desnecess�ria
Tente com elas e tente sem elas.. As coloquei so por precau��o, Para evitar uma possivel reechamada ao evento[/b:ad7af9490a]

mas cada caso � um caso.. Tenta ai , e se n�o conseguir continue postando , N�o desanima n�o...

Se eu n�o souber , outros possivelmente saber�o

Bruno Belchior · Answer

Marcos tinha feito da mesma forma que voc�, mas n�o pensei em atribuir [b:49842c02aa]nil[/b:49842c02aa] para o evento, em meus testes realmente ele entrava em um la�o recursivo infinito, vou testar falow...

F�rum Sobre valida��o de Data #284109