Показать текущую дату в label

Категория: Delphi/Pascal

2013-03-26 14:39:11

code: #delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=DateToStr(Date);
end;

code: #delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=DateToStr(Now);
end;

code: #delphi

TForm1.FormShow (Sender:TObject)
begin
    Label1.Caption = DateToStr(Date());
end;

code: #delphi

Label1.Caption := FormatDateTime('dd/mm/yyyy', Now);

Поделиться:

Sample Code