Программирование в среде Delphi. Часть 2. Создание оконных приложений. Садовская О.Б. - 31 стр.

                                           31




        Д ля ввод а целых чисел использу ет ся поле ред а кт ирова н ия Edit1.
В вод ка ж д ого числа за верш а ет ся щелчком м ыш и по кн опке В вод.
В вед ён н ый м а ссив от об ра ж а ется в поле ListBox1. После щелчка н а
кн опке Решени е преоб ра зова н н ый м а ссив отоб ра ж а ет ся в поле
ListBox2.
        В ра зд еле Interface (в ра зд еле описа н ия перем ен н ых var) вст а вим
описа н ие м а ссива и использу ем ых перем ен н ых:
                                   a : array[1..10] of integer;
                                   i, min, max, imax, imin : integer;
        В ыполн им щелчок по ф орм е Form1. В окн е Object Inspector от -
кроем вкла д ку Events и в поле им ен и соб ытия OnCreate (созд а н ие
ф орм ы) сд ела ем д войн ой щелчок. В от крывш ем ся ред а кт оре код а впе-
ча т а ем ин стру кции в пред лож ен н ой за готовке процед у ры:
procedure TForm1.FormCreate(Sender: TObject);
begin i:=0; end;
З а д а н о н а ча льн ое зн а чен ия ин д екса i м а ссива .
        В ыд елим кн опку В вод . Н а вкла д ке Events окн а Object Inspector
сд ела ем д войн ой щелчок в поле им ен и соб ыт ия OnClick и в поя вив-
ш ейся за готовке процед у ры впеча т а ем н еоб ход им ые ин ст ру кции:
        procedure TForm1.Button1Click(Sender: TObject);
        begin
        ListBox1.Items.Add(Edit1.Text);
        i:=i+1; a[i]:=StrToInt(Edit1.Text);
        Edit1.SetFocus
        end;
Ф у н кция Add ф орм иру ет список ListBox1, за полн я я его числа м и, вво-
д им ым и в поле Edit1. Од н оврем ен н о э           т им и ж е числа м и за полн я ет ся
м а ссив a. Процед у ра SetFocus у ст а н а влива ет ф оку с ввод а в поле
Edit1. Э т о озн а ча ет , чт о после ввод а очеред н ого числа и за н есен ия