Colegas,
Fiz a troca como o colega Moacir sugeriu e não funcionou, será que deve ser
falta de algum "uses"?
function gravaLog (data : TDateTime; usuario : string; arquivo : string;
hora : TTime):boolean; // <----- aqui na definiçao da classe do parametro
HORA esta o erro
Em seguida o erro que acusa no compilador:
------------------------------------------------
[DCC Error] uDataModule.pas(86): E2003 Undeclared identifier: 'TTime'
------------------------------------------------
Se puderem ajudar agradeço, sigo perdido.
[]´s Laureano Nunes
Delphi 2007
POA/RS
----- Original Message -----
From: "Moacir - GMail" <prism...@gmail.com>
To: <delphi-br@yahoogrupos.com.br>
Sent: Monday, January 26, 2009 3:37 PM
Subject: Re: [delphi-br] Função : Com que classe deve-se definir um
parametro do tipo hora (horário)?
Nunes,
Troque de tDateTime para tTime !!
function gravaLog (data : TDateTime; usuario : string; arquivo : string;
hora : *TTime*):boolean;// <----- aqui na definiçao da classe do parametro
HORA esta o erro
[ ]´s
Moacir
laureanonu...@yahoo.com.br escreveu:
> Colegas,
>
> Eu tenho uma pequena função para GRAVAR LOGS do Sistema, que funciona 100%
> com BDE, porém, com ADOQuery não esta funcionando.
>
> Esta dando erro na definiçao da classe/tipo da variável do parametro HORA
> da função, devo passar de outra maneira o parametro HORA só não sei como:
>
> hora : TDateTime ////// deve ser definido de outra maneira?
>
> Na integra a minha função:
> ---------------------------------------
> /// inicio
> function gravaLog (data : TDateTime; usuario : string; arquivo : string;
> hora : TDatetime):boolean;// <----- aqui na definiçao da classe do
> parametro HORA esta o erro
> begin
> // SE inserir Log retorno É TRUE
> qryLog := TADOQuery.Create(Application);
> result := true;
> try
> qryLog.Connection := dtbPar;
> qryLog.Sql.Add('INSERT INTO TABELADELOG values(');
> qryLog.Sql.Add(':pdata,:pusuario,:parquivo,:phora)');
> qryLog.Parameters.ParamByName('pdata').Value := data;
> qryLog.Parameters.ParamByName('pusuario').Value := usuario;
> qryLog.Parameters.ParamByName('parquivo').Value := arquivo;
> qryLog.Parameters.ParamByName('phora').Value := hora;
> qryLog.ExecSql;
> qryLog.Close;
> except
> result := false;
> end;
> end;
> //// fim
>
> Qualquer ajuda é bem-vinda, muito obrigado.
>
> []´s Nunes
> Delphi 2007 + Postgresql 8.2
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> ------------------------------------
>
>
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
--------------------------------------------------------------------------------
Nenhum vîrus encontrado nessa mensagem recebida.
Verificado por AVG - http://www.avgbrasil.com.br
Versäo: 8.0.197 / Banco de dados de vîrus: 270.10.13/1916 - Data de
Lančamento: 26/1/2009 07:08
__________________________________________________
Fa�a liga��es para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
