Ошибка в переборе компонентов

← →
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

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

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