Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Практическая работа № 24
«Текущее время и текущая дата»
Цель работы -создать программу, которая выводит текущее время и текущую дату.
Описание плана разработки программы
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 |
|
Листинг подпрограмм
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.
Date: 2015-09-18; view: 557; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |