GARANTIR DESCONTO

Fórum Conversão do Erro de Data. Não existe o Messagebox !!! #175801

18/08/2003

0

Delphi

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


Analistasaad

Analistasaad

Responder

Posts

19/08/2003

Mabh

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;


Responder

Gostei + 0

19/08/2003

Fred

acresente a Unit ´Messages´ no datamodule


Responder

Gostei + 0

20/08/2003

Mabh

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;


Responder

Gostei + 0

20/08/2003

Analistasaad

Funcionou perfeitamente, muito obrigado
mabh

Precisando, estamos ai :)


Rubens Saad


Responder

Gostei + 0

20/08/2003

Fred

foi mal!! :oops:


Responder

Gostei + 0

20/08/2003

Analistasaad

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar