Olá, Precisando, "tamus aí".
[]'s Alexandre Oliveira Campioni Analista de Sistemas A-Tecnologia e Sistemas de Informacao Ltda. Sao Joaquim da Barra - Sao Paulo - Brasil [EMAIL PROTECTED] -----Mensagem original----- De: Cristina Orthmann [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 25 de fevereiro de 2005 11:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Tratamento de hora inválida Oi Alexandre, Valeu pela dica, funcionou perfeitamente. Alexandre Oliveira escreveu: >Olá, > >Olha, acredito que todos estejam abarrotados de coisas pra fazer hoje. >Nem sempre é possível ficar verificando a lista. Talvez por isso >ninguém tenha respondido ainda. Bem, mas você já tentou usar o evento >DATACHANGE do datasource que está ligado no seu DBGrid ? Talvez seja uma solução.. > >procedure TForm1.datasource1DataChange(Sender: TObject; Field: TField); >begin > If (Field = datasource1.DataSet.FieldByName('HORA1')) or > (Field = datasource1.DataSet.FieldByName('HORA2')) then > begin > ... Seus testes > end; >end; > >[]'s > >Alexandre Oliveira Campioni >Analista de Sistemas >A-Tecnologia e Sistemas de Informacao Ltda. >Sao Joaquim da Barra - Sao Paulo - Brasil [EMAIL PROTECTED] > > >-----Mensagem original----- >De: Cristina Orthmann [mailto:[EMAIL PROTECTED] >Enviada em: quarta-feira, 23 de fevereiro de 2005 15:54 >Para: Lista Delphi >Assunto: [delphi-br] Tratamento de hora inválida > > > >Vocês estão recebendo as minhas mensagens, não tive resposta em nenhuma >dúvida postada até agora. > > >Olá pessoal, > > Por favor respondam. > > Em minha aplicação há um dbGrid onde o usuário poderá alterar o >quadro de horários, fiz o seguinte tratamento caso o usuário digite uma >hora inválida ou uma hora final menor que a inicial. > Acontece que este código só funciona quando mudo de campo com a >tecla seta para baixo. Quando digito enter ou tab aparece a mensagem de >hora inválida quando tento converter StrToDateTime(Text) para verificar >se a hora é menor que a anterior. No campo text aparece um caracter >estranho, acredito que este caracter represena o enter ou o tab. > > >procedure frmQuadro.qryQuadroHora2SetText(Sender: TField;const Text: >String); >begin > if Text = ' : ' then > (Sender as TField).AsString := '' > else > try > (Sender as TField).AsString := Text; > except > MessageDlg('Hora Inválida!',mtError,[mbOk],0); > end; > if StrToDateTime(Text) < StrToDateTime(qryQuadroHora1.Text) then > begin > MessageDlg('Hora de saída deve ser maior que a >entrada.',mtWarning,[mbOk],0); > qryQuadroHora2.Clear; > end; >end; > > > > > - -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 266.4.0 - Release Date: 22/02/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
