Текущий архив: 2006.10.08;
Скачать: 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 вся ветка
Текущий архив: 2006.10.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.034 c
