Текущий архив: 2003.07.10;
Скачать: CL | DM;
Вниз
Динамический массив компонентов Найти похожие ветки
← →
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);
вот так
← →
Skier © (2003-06-26 13:18) [4]>Rawman © (26.06.03 13:17)
дин. массив индексируется с нуля. Не забыл ?
← →
Rawman © (2003-06-26 13:48) [5]спасибо !
вроде разобрался !
Страницы: 1 вся ветка
Текущий архив: 2003.07.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
