Динамический массив компонентов

← →
Rawman © (2003-06-26 13:10) [0]

Подскажите как сделать, значит есть динамический массив компонентов TLabel, мне нужно по событию создавать элемент такого массива, я делаю так :
var RS: array of TLabel; procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var k: integer; begin k:= High(RS)+1; if k=0 then Inc(k); SetLength(Strelka, k); RS[k]:= TLabel.Create(Self); но здесь выдает ошибку ! with RS[k] do begin Parent := self; Font.Name:="Wingdings"; Font.Color:=clBlue; ...... end; end;

← →
Skier © (2003-06-26 13:12) [1]

SetLength( Strelka, k);
RS[k]:= TLabel.Create(Self);

← →
icWasya © (2003-06-26 13:16) [2]

k:= High(RS)+1; // if k=0 then Inc(k); лишнее SetLength(RS, k +1); RS[k]:= TLabel.Create(Self);

← →
Rawman © (2003-06-26 13:17) [3]

Извини ошибся!
SetLength(RS, k);
RS[k]:= TLabel.Create(Self);

вот так

спасибо !
вроде разобрался !

Динамический массив компонентов Найти похожие ветки