[In0stRAnez]

Приветствую всех!
Расскажите как в Delphi 7 получить в label.caption секунды и минуты.

скажите возможно ли в лабеле получить время в таком формате 22.10.15
(с точками) опишите подробно!

Заранее спасибо.

[MegaPiha]

Сообщение от In0stRAnez

Приветствую всех!
Расскажите как в Delphi 7 получить в label.caption секунды и минуты.

скажите возможно ли в лабеле получить время в таком формате 22.10.15
(с точками) опишите подробно!

Заранее спасибо.

Так можно получить текущее время.

Код:

procedure TForm1.FormCreate(Sender: TObject);
Var str:string;
begin
str := TimeToStr(Time);
label1.Caption:=str;
end;

[In0stRAnez]

Сообщение от MegaPiha

Так можно получить текущее время.

Код:

procedure TForm1.FormCreate(Sender: TObject);
Var str:string;
begin
str := TimeToStr(Time);
label1.Caption:=str;
end;

а как сделать чтоб отдельно секунды показывались?

[MegaPiha]

Код:

procedure TForm1.FormCreate(Sender: TObject);
Var str:string;
begin
   str:=FormatDateTime('ss',Time);
   label1.Caption:=str;
end;

Только эта функция высветит секунды, а идти время не будет.

[In0stRAnez]

спасибо, помогло!

[NCD]

Только, по-моему, это лишнее действие:

Код:

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;

так ведь тоже работает

[MegaPiha]

NCD ты прав! Но мы не ищем легких путей!