Estou quase desistindo.... :-(
16/02/2003
0
Galera, o negócio é sério, já falo de cara, o código está certo.
Estou tentando fazer a validação de datas de um DBEdit. Porém eu coloco o código CORRETO no evento OnExit, mas o Delphi não mostra minha mensagem, ele mostra a mensagem estúpida dele interrompendo minha aplicação.
Já falaram pra mim executar fora do Delphi, e acontece o mesmo erro, por favor, é urgente mesmo!!!!
utilizo o (delphi 6)
Muito Obrigado
Marcelo.
Estou tentando fazer a validação de datas de um DBEdit. Porém eu coloco o código CORRETO no evento OnExit, mas o Delphi não mostra minha mensagem, ele mostra a mensagem estúpida dele interrompendo minha aplicação.
Já falaram pra mim executar fora do Delphi, e acontece o mesmo erro, por favor, é urgente mesmo!!!!
utilizo o (delphi 6)
Muito Obrigado
Marcelo.
Anonymous
Curtir tópico
+ 0
Responder
Posts
16/02/2003
Carnette
voce por acaso colocou estas instruções entre os comandos
TRY/EXCEPT ??
TRY/EXCEPT ??
Responder
16/02/2003
Magoo
begin
try
StrToDate(Edit1.Text);
except
ShowMessage(´Data inválida´);
Edit1.SetFocus;
Abort;
end;
end;
try
StrToDate(Edit1.Text);
except
ShowMessage(´Data inválida´);
Edit1.SetFocus;
Abort;
end;
end;
Responder
17/02/2003
Adilsond
Qdo você trabalha com DBEdit não se esqueça que o valor será jogado para um field independente do que voce faça. Isto ocorre qdo o foco sai do componente. Sabendo disto voce deverá fazer o teste no field e não no dbedit.
procedure TForm1.Table1LastInvoiceDateSetText(Sender: TField;
const Text: String);
begin
try
Sender.AsDateTime := StrToDateTime(Text);
except
raise EDatabaseError.Create(´Data inválida´);
end;
end;
procedure TForm1.Table1LastInvoiceDateSetText(Sender: TField;
const Text: String);
begin
try
Sender.AsDateTime := StrToDateTime(Text);
except
raise EDatabaseError.Create(´Data inválida´);
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)