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;
--
Atenciosamente
-----------------------------------------------------
Cristina Orthmann da Silva
HACON Automação e Tecnologia Ltda
Rua Lauro Linhares 589 - Bairro Trindade
Florianópolis - SC - Brasil
CEP 88036-001
Fone/Fax: 55 48 333-0699
Site: http://www.hacon.com.br/
Email: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
-----------------------------------------------------
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
