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

procedure Tform1.FormCreate(Sender: Tobject);

Begin

Edit1.Text := ‘’;

Edit2.Text := ‘’;

Edit3.Text := ‘’;

end;

procedure Tform1.Button1Click(Sender: Tobject);

Begin

Edit1.Text := ‘’;

Edit2.Text := ‘’;

Edit3.Text := ‘’;

end;

procedure Tform1.Button2Click(Sender: Tobject);

Begin

close;

end;

procedure Tform1.Button3Click(Sender: Tobject);

Begin

s :=Edit1.Text;

s := concat (s, #32);

i := 0;

while Length(s) > 0 do

Begin

i := i+1;

p := pos (#32,s);

ss := copy (s,1,p-1);

Val (ss,k,code);

a[i] := k;

delete(s,1,p);

end;

max := a[1];

For j := 1 to i do

if max < a[j] then max := a[j];

min := a[1];

For j := 1 to i do

if min > a[j] then min := a[j];

Edit3.Text := IntToStr (max);

Edit2.Text := IntToStr (min);

end;

Практическая работа № 24

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

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

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

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

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

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

Таблица 24. Свойства проекта 24