dá sa to aj krajšie:
Kód:
begin
setlength(pole,i);
pole[i-1]:=Tedit.Create(self);
pole[i-1].Parent:=Form1;
pole[i-1].left:=20;
pole[i-1].top:=vrch;
inc(i);
vrch:=vrch+25;
end;
deklarácia by bola takáto:
Kód:
var
Form1: TForm1;
i,vrch:integer;
pole: array of Tedit;
všetko globálne
