Лабораторная работа №19. Текущее время и текущая дата

Лабораторная работа №19. "Текущее время и текущая дата"

Цель работы - создать программу, которая выводит текущее время и текущую дату. Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: Button, Edit, Label.

3. Выполнить следующие действия:

Таблица 19.1

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Form1	Properties	Caption	Установка имени формы "Таймер"
Button1	Properties	Caption	Введите название "Текущее время"
Button1	Events	Onclick	DateTime:=Time; Edit1.Text:=TimeToStr(DateTime);
Button2	Properties	Caption	Введите название "Текущая дата"
Button2	Events	Onclick	Edit2.Text:=DateToStr(Date);
Edit1	Properties	Caption	Очистить значение свойства Text
Edit2	Properties	Caption	Очистить значение свойства Text

Рис. 18.1

Листинг подпрограмм var

DateTime : TdateTime;

procedure Tform1.Button1Click(Sender: Tobject);

begin

DateTime:=Time;

Edit1.Text:=TimeToStr(DateTime);

end;

procedure Tform1.Button2Click(Sender: Tobject); begin Edit2.Text:=DateToStr(Date); end; end.