Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.013 c
1-31260
mao
2003-06-29 18:09
2003.07.10
Richedit странно себя ведет...


6-31377
LOX
2003-05-04 08:42
2003.07.10
У IE есть журнал а как это замутить в TWebBrowser?


1-31218
Pec
2003-06-28 23:39
2003.07.10
дескриптор


1-31282
kudatsky
2003-06-26 12:09
2003.07.10
Ini-файл под Win-2000


4-31564
Птущенко Денис
2003-05-09 08:38
2003.07.10
Thread