|
#1
|
|||
|
|||
получение Мин-сек
Приветствую всех!
Расскажите как в Delphi 7 получить в label.caption секунды и минуты. скажите возможно ли в лабеле получить время в таком формате 22.10.15 (с точками) опишите подробно! Заранее спасибо. |
#2
|
|||
|
|||
Цитата:
Так можно получить текущее время. Код:
procedure TForm1.FormCreate(Sender: TObject); Var str:string; begin str := TimeToStr(Time); label1.Caption:=str; end; |
#3
|
|||
|
|||
Цитата:
а как сделать чтоб отдельно секунды показывались? |
#4
|
|||
|
|||
Код:
procedure TForm1.FormCreate(Sender: TObject); Var str:string; begin str:=FormatDateTime('ss',Time); label1.Caption:=str; end; |
#5
|
|||
|
|||
спасибо, помогло!
|
#6
|
||||
|
||||
Спасибо, я тоже давно это искал!
Только, по-моему, это лишнее действие:
Код:
procedure TForm1.FormCreate(Sender: TObject); Var str:string; // лишнее begin str:=FormatDateTime('ss',Time); //лишнее label1.Caption:=str; end; т.е. : Код:
procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption := FormatDateTime('ss', Time); end; так ведь тоже работает |
#7
|
|||
|
|||
NCD ты прав! Но мы не ищем легких путей!
|