Coloque no uses do teu datamodulo a unit controls.
laureanonu...@yahoo.com.br escreveu:
> 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]
>
>
> ------------------------------------
>
>
[As partes desta mensagem que não continham texto foram removidas]
