ERRO AO VALIDAR DATA

[sop...@intercol.com.br]

Bom dia pessoal estou com uma duvida na VALIDAÇÃO DE DATA.
Uso INTEBASE, DELPHI 6 E DATAMODULE neste DATAMONDULE colo todas minhas
TABLES, QUERYS E DATASOURCE, onde as TABLES são para CADASTRO e as
QUERYS para consulta então nesse DATAMODULE tenho uma TABLE com o nome
de IBTAliq então fui tentar validar uma data e deu um erro. VEJA COM
FIZ, FUI NA TABELA E NO FILD DT_CADAST fui no envento OnSetText e
coloquei o seguinte comando:

procedure TDM.IBTAliqDT_CADASTSetText(Sender: TField;
const Text: string);
begin
if text = ' / / ' then
sender.AsString := ''
else
begin
try
Sender.AsString := text;
except
Showmessage('Data Inválida');
abort;
end;
end;
end;

ERRO SOLICITADOS AO EXECUTAR O SISTEMA (F9)

[Erro] DmGeral.pás(491): Undeclared Identifier: 'ShowMessage'
[Fatal Erro] SofCom.dpr(43): Could not compile usid unit
'DmGeral.pas'

OBS:
DmGeral = é o nome do meu DATAMODULE
SofCom = é o nome do meu PROJETO

PESSOAL SE POR GENTILEZA ALGUEM PUDER RESPODER ESSA DUVIDA

Obrigado
Atenciosamente,
Fernando Signorelli Spalenza - [Sopinha]

'' O Otimista Pode Errar, Mas o Pessimista Já Começa Errado''
(Juscelino Kubitschek)

[francisc...@megawork.com.br]

Fala Sopinha blz!

Este erro ocorre porque o Dataodule não carrega a Unit que contém o
ShowMessage.
Para corrigir isto basta você declarar na cláusula Uses do DataModule
a Unit "Dialogs".

[Leonardo (Tectrilha)]

Valeu pela resposta Francisco ! Para o fórum funcionar, é fundamental
que todos possam estar respondendo as questões que sabem, e não só o
pessoal da Tectrilha.

Abraços,

Leonardo Hees Drummond
Tectrilha Software

[sop...@intercol.com.br]

Francisco negocio é o seguinte o esquema do DIALOGS na clausula uses
passou mas continua dando um erro por exemplo c digitar assim
10/15/2005 da um erro q nem imagino o é deve ser alguma coisa de
conversão de texto pra data olha la no seu e-mail q te mandei é pq
aki no forum nao da pra mim colocar a mensagem q ta dando

[PedroAcerbi]

cara, esse erro q ta dando eh porque a data q vc digitou eh invalida. A
melhor forma de vc fazer a coisa eh
Sender.asdatetime:= strtodate(text).
Entendeu? Isso eh o certo. Caso contrario, quem vai tratar o erro,
será o banco de dados e nao o delphi...

[]'s