var cb: array of TCombobox; //массив элементов
procedure TForm1.Button1Click(Sender: TObject);
const d=25 ; t=5; l=10; //параметры расположения компонентов (можете выбирать по вкусу)
var
n,i: integer;
begin
try n:=strtoint(Edit1.Text); //считываем число
except showmessage('Input natural number'); exit end; //при ошибкео станавливаем процедуру
if i<0 then begin showmessage('Input natural number'); exit end; //если введено отрицательное число, останавливаем процедуру
for i:=0 to length(cb)-1 do cb[i].Free; //очистка старых компонентов
setlength(cb,n); //длина массива
for i:=0 to n-1 do //для каждого элемента
begin cb[i]:=TComboBox.Create(self); //создание элемента
cb[i].Parent:=form1; //родительский компонент (помещаем компонент на форму)
Cb[i].Top:=i*d+t; //задаём расположение
Cb[i].Left:=l;
end;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.