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

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

Практическая работа № 24 Текущее время и текущая дата

Рис. 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.

Практическая работа № 23 Находение минимального и максимального числа в массиве || Оглавление || Практическая работа № 25 "Электронные часы"


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



Новости за месяц

  • Сентябрь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс