affichage de l'heure

bonjour,
je veut utiliser un label pour decorer mon application et afficher l'heure et la date sur la forme principale.

salut utilise DatetoStr() et TimetoStr()
var
  DateTime : TDateTime;
begin
  DateTime := Time;  // stocke la date et l'heure en cours
label1.caption:='le: '+DateToStr(Date)+'   '+TimeToStr(Time);
end;
bonne prog;

precision si tu veux afficher l'heure en continu tu mets la fonction  d'affichage dans un timer çà donne :
procedure TForm1.Timer1Timer(Sender: TObject);
 var
  days: array[1..7] of string;
begin
  days[1] := 'Dimanche';
  days[2] := 'Lundi';
  days[3] := 'Mardi';
  days[4] := 'Mercredi';
  days[5] := 'Jeudi';
  days[6] := 'Vendredi';
  days[7] := 'Samedi';
   // stocke la date et l'heure en cours
label1.caption:=days[DayOfWeek(Date)]+' '+DateToStr(Date)+'   '+TimeToStr(Time);
end;

Et si tu veux pas taper trop de lignes :

Label1.Caption := FormatDateTime('dddd dd mmmm yyyy - hh:nn:ss',now);

Ken@vo

---

Code, Code, Codec !

chapeau bas ken@vo

procedure TForm1.Timer1Timer(Sender: TObject);
 var
  days: array[1..7] of string;
begin
  days[1] := 'Dimanche';
  days[2] := 'Lundi';
  days[3] := 'Mardi';
  days[4] := 'Mercredi';
  days[5] := 'Jeudi';
  days[6] := 'Vendredi';
  days[7] := 'Samedi';
   // stocke la date et l'heure en cours
label1.caption:=days[DayOfWeek(Date)]+' '+DateToStr(Date)+'   '+TimeToStr(Time);
end;