Estou quase desistindo.... :-(
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
Curtidas 0
Respostas
Carnette
16/02/2003
voce por acaso colocou estas instruções entre os comandos
TRY/EXCEPT ??
TRY/EXCEPT ??
GOSTEI 0
Magoo
16/02/2003
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;
GOSTEI 0
Adilsond
16/02/2003
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;
GOSTEI 0