Процедура пересчета, которая выполняется в результате щелчка на командной кнопке Вычислить, умножает вес в фунтах на коэффициент, равный количеству килограммов в одном фунте. Значение коэффициента определяется по номеру выбранного из списка элемента.

В листинге 2.3 приведен текст программы пересчета веса из фунтов в килограммы.

Листинг 2.3. Пересчет веса из фунтов в килограммы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes,

Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label2: TLabel;

Editl: TEdit; // поле ввода веса в фунтах

Button1: TButton; // кнопка Вычислить

Label1: TLabel;

LabelS: TLabel;

ListBox1: TListBox; // список стран

Label4: TLabel; // поле вывода рез-та — веса в килограммах

procedure FqrmCreate(Sender: TObject);

procedure ButtonlClick(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForml;

implementation

{$R *.DFM}

procedure TForml.FormCreate(Sender: TObject);

begin

{

ListBox1.items.add('Россия');

ListBox1.items.add('Австрия');

ListBox1.iterns.add('Англия');

ListBox1.items.add('Германия');

ListBox1.iterns.add ('Дания');

ListBoxl.iterns.add('Исландия');

ListBox1.iterns.add ('Италия');

ListBox1.items.add ('Нидерланды'); }

ListBox1.itemindex:=0; end;

procedure TForm1.ButtonlClick(Sender: TObject);

var

funt:real; // вес в фунтах

kg:real; // вес в килограммах

k:real; // коэффициент пересчета

begin

case ListBoxl.Itemindex of

0: k:=0.4095; // Россия

1: k:=0.453592; // Англия

2:k:=0.56001; // Австрия

3..5,7:k:=0.5; // Германия, Дания, Исландия, Нидерланды

6: k:=0.31762; // Италия

end;

funt:=StrToFloat(Editl.Text);

kg:=k*funt;

label4.caption:=Editl.Text

+ ' ф. — это '

+ FloatToStrF(kg,ffFixed, 6,3) + 'кг.';

end;

end.

Следует обратить внимание на процедуру обработки события FormCreate, которое происходит в момент создания формы (форма создается автоматически при запуске программы). Эту процедуру можно использовать для инициализации переменных программы, в том числе и для добавления элементов в список. В приведенном тексте программы инструкции создания списка закомментированы, т. к. список был создан при помощи редактора строк во время создания формы.

Рассмотрим еще один пример использования инструкции case. При выводе числовой информации с поясняющим текстом возникает проблема согласования выводимого значения и окончания поясняющего текста.

Например, в зависимости от числового значения поясняющий текст к денежной величине может быть: "рубль", "рублей" или "рубля" (123 рубля, 120 рублей, 121 рубль). Очевидно, что окончание поясняющего слова определяется последней цифрой числа, что отражено в табл. 2.8.

Таблица 2.8. Зависимость окончания текста от последней цифры числа

Цифра	Поясняющий текст
0, 5, 6, 7, 8, 9	Рублей
1	Рубль
2,3,4	Рубля

Приведенное в таблице правило имеет исключение для чисел, оканчивающихся на 11, 12, 13, 14. Для них поясняющий текст должен быть "рублей".

Диалоговое окно программы приведено на рис. 2.12, а текст — в листинге 2.4. Поясняющий текст формирует процедура обработки события onKeyPress

Рис. 2.12. Диалоговое окно программы

Листинг 2.4. Формирование поясняющего текста

unit. rub_l; interface

uses

Windows, Messages, SysUtils,

Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm) Label1: TLabel;

Editl: TEdit; Label2: TLabel;

procedure EditlKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForm1;

implementation

{$R *.dfm}

// нажатие клавиши

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char) var

n : integer; // число

r : integer; // остаток от деления n на 10

text: string[10]; // формируемый поясняющий текст

begin

if Key = chr(VK_RETURN) then

begin

n := StrToInt(Editl.Text); if n > 100

then n:=n mod 100;

if (n >= 11) and (n <= 14) then

text:=' рублей' else begin

r:= n mod 10; case r of

1: text:=' рубль'; 2 .. 4: text:=' рубля';

else text:=' рублей';

end;

end;

Label2.Caption := IntToStr(n)+ text; end;

end;

end.

Рассмотрим фрагмент программы (листинг 2.5), которая вычисляет дату следующего дня, используя сегодняшнюю дату, представленную тремя переменными: day (день), month (месяц) и year (год).

Сначала с помощью инструкции сазе проверяется, является ли текущий день последним днем месяца. Если текущий месяц — февраль и если текущее число — 28, то дополнительно выполняется проверка, является ли год високосным. Для этого вычисляется остаток от деления года на 4. Если остаток равен нулю, то год високосный, и число 28 не является последним днем месяца.

Если выясняется, что текущий день — последний день месяца, то следующее число — первое. Затем проверяется, не является ли текущий месяц декабрем. Если нет, то увеличивается номер месяца, а если да, то увеличивается номер года, а номеру месяца присваивается значение 1.

Листинг 2.5. Вычисление даты следующего дня (фрагмент)

// вычисление даты следующего дня

var

day: integer; // день

month: integer; // месяц

year: integer; // гОД

last:boolean; // если день — последний день месяца,

// то last = True

r:integer; // если год не високосный, то остаток

// от деления year на 4 не равен нулю

begin

{ переменные day, month и year содержат сегодняшнюю дату }

last := False; // пусть день — не последний день месяца

case month of 4,6,9,11:

if day = 30 then last:= True; 2:

if day = 28 then begin

r:= year mod 4; if r <> 0 then last:= True;

end;

else: if day=31 then last:= True;

end; if last then

begin // последний день месяца day:= 1;

if month =12 then

begin // последний месяц

month:= 1;

year:= year + 1;

end

else month:= month + 1;

end

else day:= day + 1;

// переменные day, month и year // содержат завтрашнюю дату

end;