∙function IsLeapYear(Year: Word): Boolean; Определяет, является ли год, указываемый параметром Year, високосным.

∙function Now: TDateTime; Возвращает значение текущей даты и времени.

∙function StrToDate(const S: string): TDateTime;

Преобразовывает значение строки, указываемое параметром S, в дату типа

TDateTime.

∙function Time: TDateTime; Возвращает текущее значение

времени.

∙ function TimeToStr(Time: TDateTime): string;

Преобразовывает время в строку в соответствии с форматом, определяемым глобальной переменной LongTimeFormat.

Задания для самостоятельной работы

1.Вывести на экран текущую дату и время.

2.Определить, является ли введенный с клавиатуры год, високосным.

3.Вывести количество понедельников в году, введенном с клавиатуры.

4.Вывести количество «несчастливых» пятниц 13 в году, введенном с клавиатуры.

Лабораторная работа 16. Простейшие задачи на форме

В основном работа с компонентами осуществляется на форме (класс TForm).

Основная форма – это главное окно будущей программы. На нем можно расположить визуальные компоненты (кнопки, флажки и т. д.) в любом виде и порядке. В Delphi расстановка элементов управления происходит визуально, и все делается при помощи мыши. Это позволяет сформировать даже самый сложный пользовательский интерфейс достаточно быстро.

Рассмотрим основные свойства и события формы. Большинство из них присутствуют и у других компонентов.

Caption – текстовое свойство, задающее заголовок формы.

BorderIcons – свойство, определяющее какие кнопки должны присутствовать у окна. Это свойство раскрывающееся.

Color – цвет клиентской области окна.

Font – шрифт, используемый при вводе текста на форму. Выбирается с помощью стандартного окна Windows для выбора шрифта.

Height – высота окна формы в пикселях (целое число).

Width – ширина окна формы в пикселях (целое число).

© ИМПИ ОГПУ

Hint – текст подсказки, который будет появляться в строке состояния при наведении указателя мыши на компонент.

Tag – это свойство целого типа. Оно ни на что не влияет и программист может использовать его по своему усмотрению.

Top – y-координата верхнего края окна.

Visible – свойство логического типа. Если оно равно true, то компонент видимый, false – невидимый.

WindowState – состояние окна после запуска приложения; бывают нормальное, максимизированное и минимизированное состояние.

Класс компонентов TButton – кнопка. Основное свойство – Caption (заголовок).

Рассмотрим три основных класса компонентов для вывода текста на форму:

∙TLabel (Метка). Используется для вывода вспомогательной информации на форму. Основное свойство – Caption (заголовок).

∙TEdit (Одна строка). Используется для ввода и вывода информации. Основное свойство – Text.

∙TMemo (Несколько строк). Используется для ввода и вывода многострочной информации. Основные свойства – Text; Lines с методами Add (’строка’), Clear.

Решим простейший пример: найти сумму трех чисел.

1.	Описываем после служебного слова VAR несколько переменных целого типа
для удобства решения: Var a, b, c, s: integer;
2.	На форме заводим 3 метки: Label1, Label2, Label3. У каждой из них

в окне инспектора объектов, свойство Caption устанавливаем, соответственно, а=, b=, с=.

3.Наносим однострочные элементы управления Edit1, Edit2, Edit3. В них будем вводить числа. Для этого в свойстве Text нужно удалить надписи.

4.Заводим кнопку, которую называем ’Cумма’.

5.Размещаем элемент управления Memo1 и удаляем все надписи в многострочном редакторе. Для этого в окне Свойства объекта выбираем свойство Lines и удаляем все надписи в нем.

6.Активируем двойным щелчком мыши кнопку. Появляется процедура

TForm1.Button1Click(Sender: TObject). Это обработчик нажатия на

кнопку.

© ИМПИ ОГПУ

7. В теле процедуры присваиваем заведенным переменным следующие значения: a:=StrToInt(Edit1.text); (аналогично для b и с; соответственно,

берем информацию из Edit2 и Edit3).

8.Вычисляем сумму s:=a+b+c;

9.Выводим результат в Memo1. Для этого записываем

Memo1.Text:=IntToStr(s);

Задания для самостоятельной работы

1.Найти среднее арифметическое пяти введенных чисел.

2.По введенным сторонам найти площадь треугольника по формуле

Герона.

3.Ответить на вопрос является ли треугольник равнобедренным по введенным сторонам.

4.Найти медиану трех чисел.

5.Решить квадратное уравнение вида ax2+bx+c=0.

Лабораторная работа 17. Флажки и переключатели

Флажки в среде программирования используются для переключения между состояниями: да/нет или да/нет/не уверен. В последнем случае флажок устанавливается, но выглядит блекло. Этот выбор отражается в свойстве State

компонента, доступном как для чтения, так и для записи. State может быть трёх типов: установлен (Checked), не установлен (Unchecked), не уверен (Alignment). При двойном щелчке мышью на элементе CheckBox1 появится процедура TForm1.CheckBox1Click(Sender: TObject);

Задача: при установке флажка текст в Метке1 должен становиться жирным.

Procedure TForm1.CheckBox1Click(Sender: TObject); begin

if checkbox1.Checked=true

then Label1.font.Style:=font.style+[fsbold]

else Label1.font.Style:=font.style-[fsbold] end;

То есть, если (if) флажок установлен, (then) к стилю текста в Метке1 добавляется свойство «жирнность», (else) а при повторном нажатии на флажок – это свойство исключается. Код будет более понятен, если сказать, что font.style представляет собой множество.

Рассмотрим применение таблицы для первого случая, когда необходимо текст в многострочном редакторе сделать жирным при установке флажка и обычным при повторном нажатии.

<Условие>	<Оператор>
CheckBox1.checked	Memo1.Font.Style:=Memo1.Font.Style+[fsBold]

© ИМПИ ОГПУ

Memo1.Font.Style:=Memo1.Font.Style-[fsBold]

Вставив условия и операторы в шаблон получим:

procedure TForm1.CheckBox1Click(Sender: TObject); begin

if CheckBox1.checked then

Memo1.Font.Style:=Memo1.Font.Style+[fsBold] else

end;Memo1.Font.Style:=Memo1.Font.Style-[fsBold]

Переключатели предназначены для выбора одного из нескольких взаимоисключающих решений. На форме размещаются по меньшей мере два таких компонента. Они могут иметь только два состояния, определяемых свойством

Checked.

Для того, чтобы обработать флажок или переключатель необходимо использовать условный оператор.

Задача: при установке переключателей текст в Метке1 должен становиться желтым либо красным.

procedure TForm1.RadioButton1Click(Sender: TObject); begin

if RadioButton1.Checked=true

then Label1.Font.Color:=clYellow end;

procedure TForm1.RadioButton2Click(Sender: TObject); begin

if RadioButton2.Checked=true

then Label1.font.Color:=clRed end;

Задания для самостоятельной работы

Создать простейший текстовый процессор, содержащий переключатели цвета шрифта, флажки для определения стиля.

© ИМПИ ОГПУ