Создание массива компонентов
Объявление массива кнопок var
…
m_but : array[1..100] of TButton;
Создание массива кнопок: for i:=1 to n do begin
m_but[i]:=TButton.Create(self);
{создается очередной элемент массива кнопок m_but} m_but[i].parent:=self;
{он появляется на форме} m_but[i].Top:=i*25; m_but[i].Left:=30;
{кнопки размещаются одна под другой с интервалом
25 пикселей между верхними границами} m_but[i].Caption:=IntToStr(i);
{надпись на каждой кнопке соответствует ее номеру}
end;
11
Создание нового класса
Объявление нового класса type
TPerson = class fName: string; // имя
fGr:integer; //группа
constructor Create(name:string;gr:integer); function info:string;
end;
Объявление методов класса TPerson
constructor TPerson.Create(name:string;gr:integer); begin
fName := name; fGr:= gr;
end;
function TPerson.Info:string; begin
result := fName + ' гр.' + IntToStr(fGr);
end;
12
Создание нового класса
Объявление массива объектов класса TPerson
var
…
List: array[1..100] of TPerson;
Последовательное создание массива объектов класса TPerson по кнопке
List[n]:=TPerson.Create(Edit1.Text, SpinEdit1.Value); n:=n+1;
Запуск
Классификация и эволюция программного обеспечения
14
Классификация и эволюция программного обеспечения
Доля специального ПО сокращается, доля общего ПО растет
15
Развитие языков программирования
16