[Resolvido] mostrar hora com com segundos em TEdit

[Geovane Velmer 0]

Como fasso para mostrar a hora corrente com segundos em Edit ?

[Chrnos 30]

Use o comando FormatDateTime.

 

   edit1.text := FormatDateTime('hh:mm:ss', now);

[]'s

[Raficcha 1]

tambeim pode tentar

 

Edit1.Text := TimeToStr(Time)

[Geovane Velmer 0]

Das duas maneiras que foram explicadas acima, o tempo corre ?

 

-------------------------------------------------------------

 

Eu concegui fazer assim

usando o componente TTimer, na propriedade Interval eu deixo 1000 que é o tempo de atualização do relogio

e no evento OnTimer do Timer eu coloco o código abaixo

 

procedure TfrmContaRec.tHoraTimer(Sender: TObject);
var
tHora:TDateTime;
begin

tHora:=Time;
dtHora.Text:=TimeToStr(tHora);

end;

Dai a hora fica correndo certinho..

Mais se o exemplos que deram acima funcionarem como o que fiz.. é bem mais simples de usar.

 

Não tenho como testalos agora mais quando der eu faço um teste

[Chrnos 30]

As duas formas mostradas são usadas para exibir o tempo atual no edit, mas o tempo não fica correndo, ele mostra o tempo da hora que executou a linha... só com uso do componente TTimer você vai conseguir mostrar um tempo que fique atualizando segundo a segundo, como você mesmo já postou a solução abaixo... o comando NOW pode ser usado para pegar a Data e a Hora corrente, enquanto o Time pega a hora atual.

 

[]'s

[Geovane Velmer 0]

ok.. vlw pela ajuda, talvez eu tenha explicado mal o que eu queria..