Ver Mensaje Individual
  #4  
Antiguo 15-05-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Creo que la clave te la ha dado el compañero con la variable "Time" y la función "TimeToStr". En "Time" tienes a tu disposición la hora del sistema en formato "TDateTime", que con la función "TimeToStr" puedes convertir en una cadena.

Dicho eso puedes mostrar la hora del sistema prácticamente en cualquier lado...

Código Delphi [-]
  Edit1.Text := TimeToStr(Time);

  Self.Caption := TimeToStr(Time);

  Memo1.Lines.Add(TimeToStr(Time));

  Label1.Caption := TimeToStr(Time);

  MaskEdit1.Text := FormatDateTime('hh:mm:ss', Time);

Claro que Delphi cuenta con otras funciones que pueden interesarte, como por ejemplo "FormatDateTime", que se utiliza más arriba, porque el componente "MaskEdit1" cuenta con una "máscara" predeterminada para mostrar una hora, y esta ha de tener determinado formato, o de otro modo no se vería "bien".

Echa un vistazo en la ayuda de Delphi sobre "Time", "Date", "Now", "TimeToStr", "FormatDateTime", la unidad "SysUtils", la unidad "DateUtils",... aunque tal vez con lo mencionado tengas resuelto más o menos lo que necesitas, según dices. ¿O no?
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita