Практикум по Delphi для решения прикладных задач


Текущее время и текущая дата


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

Описание плана разработки программы

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

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

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

Таблица 24.

Выделенный объект

Вкладка окна

Object Inspector

Имя свойства/

имя события

Действие

Form1

Properties

Caption

Установка имени формы «Таймер»

Button1

 

Properties

Caption

Введите название «Текущее время»

Events

Onclick

DateTime:=Time;

 Edit1.Text:=TimeToStr(DateTime);

Button2

 

Properties

Caption

Введите название «Текущая дата»

Events

Onclick

Edit2.Text:=DateToStr(Date);

Edit1

Properties

Caption

Очистить значение свойства Text

Edit2

Properties

Caption

Очистить значение свойства Text

Рис. 47.

   

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

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.





Начало  Назад  Вперед



Книжный магазин