Последний раз выполнялось

[anton14]

Вопрос такой: при Button1.Click выполняется некоторое действие. Как в Labe1 прописать, когла последний раз оно выполнялось (дата, время)?
Спасибо!

[FaTaL]

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

Вопрос такой: при Button1.Click выполняется некоторое действие. Как в Labe1 прописать, когла последний раз оно выполнялось (дата, время)?
Спасибо!

procedure TForm1.Button1Click(Sender: TObject);
begin
{Ваш код}
Label1.Caption:=DateTimeToStr(now);
end;

[mihali4]

Только для времени:
Label1.Caption:=FormatDateTime('hh: mm:ss',now);
Только для даты:
Label1.Caption:=FormatDateTime('dd. mm.yyyy',now);
Объединить в нужный вид сумеете?

[anton14]

Спасибо!

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

Объединить в нужный вид сумеете?

Да, конечно!