Скачать: CL | DM;

Ошибка в переборе компонентов   Найти похожие ветки 

← →
dreamse   (2006-09-17 13:12) [0]

Код :


var
 i:integer;
begin

for i:=0 to self.ComponentCount -1 do
 begin

 if (self.Components[i] is TRzCheckBox) then
  TRzCheckBox(self.Components[i] is TRzCheckBox).Checked := true;

 end;
 


Код должен перебрать все чек боксы на форме и поставить галочки но выдаёт ошибку когда доходит до нужного компонента.

В чём ошибка ?

---

← →
DrPass ©   (2006-09-17 13:18) [1]

(self.Components[i] as TRzCheckBox).Checked := true;
или
TRzCheckBox(self.Components[i]).Checked := true;

---

← →
Ketmar ©   (2006-09-17 13:18) [2]

в DNA? %-)
rtfm по "is" и "as".

---

← →
dreamse   (2006-09-17 13:25) [3]

Спасибо ! Перепутал просто is и as

---

← →
Anatoly Podgoretsky ©   (2006-09-17 13:54) [4]

И получил TRzCheckBox(True).Checked := true;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c