Лекция: Листинг подпрограмм

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;