Conversão do Erro de Data. Não existe o Messagebox !!!
Olá a todos, estou com a seguinte dúvida:
Estou tentando converter o erro de data e quando coloco o codigo dentro do OnSetText:
var Data: Tdatetime;
begin
try
data:= strtodate (text);
tblclienteNasc.asdatetime := Data;
except
on EconvertError do
begin
Showmessage (´Data Inválida´!);
abort;
end;
end;
end;
ele me informa que nãi existe ShowMessage.
O que faço?
Obrigado
Rubens Saad
Estou tentando converter o erro de data e quando coloco o codigo dentro do OnSetText:
var Data: Tdatetime;
begin
try
data:= strtodate (text);
tblclienteNasc.asdatetime := Data;
except
on EconvertError do
begin
Showmessage (´Data Inválida´!);
abort;
end;
end;
end;
ele me informa que nãi existe ShowMessage.
O que faço?
Obrigado
Rubens Saad
Analistasaad
Curtidas 0
Respostas
Mabh
18/08/2003
Você deve estar usando este código em um DataModule, acrescente a lista de uses a unit Forms:
uses
(Tudo o que já está escrito), Forms;
uses
(Tudo o que já está escrito), Forms;
GOSTEI 0
Fred
18/08/2003
acresente a Unit ´Messages´ no datamodule
GOSTEI 0
Mabh
18/08/2003
Perdão colega, o correto é Dialogs e não Forms como eu havia escrito anteriormente, coloque Dialogs no primeiro uses e não no segundo. Segue também uma dica, quando isto acontecer novamente selecione a palavra, no caso ShowMessage e aperte F1, será mostrado o help indicando em que unit está escrita a função ou o procedimento, por exemplo:
Displays a message box with an OK button.
Unit
Dialogs or QDialogs //Obs.: Dialogs para VCL (Delphi) e QDialogs para CLX (Kylix)
Category
dialog and message routines
Delphi syntax:
procedure ShowMessage(const Msg: string);
procedure ShowMessage(const Msg: WideString); overload;
procedure ShowMessage(const Msg: WideString; Params: array of const); overload;
Displays a message box with an OK button.
Unit
Dialogs or QDialogs //Obs.: Dialogs para VCL (Delphi) e QDialogs para CLX (Kylix)
Category
dialog and message routines
Delphi syntax:
procedure ShowMessage(const Msg: string);
procedure ShowMessage(const Msg: WideString); overload;
procedure ShowMessage(const Msg: WideString; Params: array of const); overload;
GOSTEI 0
Analistasaad
18/08/2003
Funcionou perfeitamente, muito obrigado
mabh
Precisando, estamos ai :)
Rubens Saad
mabh
Precisando, estamos ai :)
Rubens Saad
GOSTEI 0
Fred
18/08/2003
foi mal!! :oops:
GOSTEI 0
Analistasaad
18/08/2003
Oh Fred , cara desculpa peço eu!!
eu coloquei o nome mabh sem intensão, é claro que quero receber dicas de todos.
Desculpa a má educação, foi mal mesmo.
valeu
Rubens Saad
eu coloquei o nome mabh sem intensão, é claro que quero receber dicas de todos.
Desculpa a má educação, foi mal mesmo.
valeu
Rubens Saad
GOSTEI 0