Delphi - time

hola no se como poner la hora y fecha en mi programa es decir quiero tomar la hora y la fecha del sistema actual (mi pc) y quiero que aparesca en el programa que estoy realizando en delphi 7 lo unico que he encontrado es que se utiliza time() y date() pero no he encontrado como mostrarlos en el programa si alguien sabe como hacerlo ayudeme porfavor gracias
saludos

Hola.

En cuanto a la fecha se me ocurre que podría servirte lo siguiente.
Declaras una variable de tipo fecha:

var
fecha : TDate;

y luego haces esto: fecha := now;
Con eso consigues tener la fecha actual almacenada en dicha variable.
Luego podrías hacer algo así como:
Label1.Caption := DateToStr(fecha); y con eso despliegas en el Label1 la fecha en tu programa.
En cuanto a la hora, pues nunca lo he intentado, sólo puedo recomendarte que busques un poco en la ayuda de delphi.
Espero te sirva.

tal vez no te sea suficiente con solo mostrarla, mejor para mostrar la hora con sus minutos y segundos y mantenerla actualizada.
por ejemplo con un StatusBar y un timer.

// colocas esta linea en el evento ontimer()
statusbar1.Panels[0].Text:= TimeToStr(Time)

NOTA: si tienes un statusbar en un form con 2 paneles: '0' es el primer panel. idem a los elementos de un array.

espero te funcione, de no ser asi. escribeme [email protected]

Haz esto:

Coloca un TTimer (Timer1)[paleta System], y 3 TLabel (LHora, LSemana,LFecha)

En el único evento del TTimer que es OnTimer pon este código:

procedure TFMenu.Timer1Timer(Sender: TObject);
var
ShortDateTimeFormat : string;
const
aDia : array[1..7] of string =
('domingo','lunes','martes','miércoles','jueves','viernes','sábado');
begin
ShortDateTimeFormat := 'hh:mm';
if Copy(TimeToStr(Now),3,1) = ':' then
LHora.Caption := Copy(TimeToStr(Now),1,5)
else
LHora.Caption := Copy(TimeToStr(Now),1,4);
LSemana.Caption := aDia[DayOfWeek(date)];
LFecha.Caption := FormatDateTime('d "de "mmmm "de "yyyy',DATE);
end;

Te aparecerá la hora (horas:minutos), el día de la semana y la fecha que se van actualizando constantemente.

Tomás.