Как считать значение с динамических объектов

← →
DEM_s (2004-11-11 15:21) [0]

я создал в цикле динамически чекеты, как в цикли-же считать их значения?

j:=16;
for i:=0 to XMLRaights.DocumentElement.ChildNodes.Count-1 do
begin
CheckBox:=TCheckBox.Create(self);
CheckBox.Parent:=gbRaights;
CheckBox.Top:=j;
CheckBox.Left:=8;
j:=j+18;
end;

← →
Семен Сорокин © (2004-11-11 16:29) [1]

как вариант - сохранить в массив.

← →
cae © (2004-11-11 16:41) [2]

Примерно так :
for i := 0 to gbRaights.ControlCount - 1 do if gbRaights.Controls[i] is TCheckBox then with gbRaights.Controls[i] as TCheckBox do begin B := Checked ; ....... end ; // for i

← →
Ega23 © (2004-11-11 16:42) [3]

j:=16; for i:=0 to XMLRaights.DocumentElement.ChildNodes.Count-1 do begin CheckBox:=TCheckBox.Create(self); CheckBox.Parent:=gbRaights; CheckBox.Top:=j; CheckBox.Left:=8; CheckBox.Tag:=i; j:=j+18; end;

А так вычитывать:

for i:=0 to gbRaights.ControlCount-1 do begin if not (gbRaights.Controls[i] is TCheckBox) then Continue; if (TCheckBox(gbRaights.Controls[i]).Tag=... ) and (TCheckBox(gbRaights.Controls[i]).Checked) then ... end;

← →
Плохиш © (2004-11-11 16:42) [4]

> DEM_s (11.11.04 15:21)

CheckBox:=TCheckBox.Create(gbRaights);

> как в цикли-же считать их значения?

Так же в цикле для gbRaights.Components[]

← →
Плохиш © (2004-11-11 16:42) [5]

> DEM_s (11.11.04 15:21)

CheckBox:=TCheckBox.Create(gbRaights);

> как в цикли-же считать их значения?

Так же в цикле для gbRaights.Components[]

CheckBox:=TCheckBox.Create(gbRaights);

ИМХО, необязательно...

Спасибо

Как считать значение с динамических объектов Найти похожие ветки