Re: [delphi-br] Função : Com que classe deve-se definir um param etro do tipo hora (horário)? (RE SOLVIDO)

2009-01-26 Por tôpico laureanonunes 
Colegas,

Para utilizar o TTime deve-se inserir na uses a cláusula Controls, meu erro 
tinha outro furo, além de faltar declarar Controls na uses...

Eu utilizo ODBC do Postgresql 8.2 para salvar informações via ADOQUERY e dai 
o campo no banco de dados esta definido como:

time without time zone

Este campo só aceita o time() se timetoStr(time()).

Resolvi deste jeito a coisa.

Obrigado pelas respostas.

[]´s Nunes.
Delphi 2007 + Pg 8.2

- 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/

Re: [delphi-br] Função : Com que classe deve-se definir um param etro do tipo hora (horário)?

2009-01-26 Por tôpico laureanonunes 
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/