Платные хостинги     Раскрутка сайта     Книги по программированию

Ошибку компил выдает, Ошибку выдает

- :ПриветствуюВот ишбку компилятор выдает в коде:Код For I:=1 to 8 do  [color=red] if TCheckBox(FindComponent('Form1.NB'+IntToStr(I))).Checked then [/color]        Size[I]:=128 else Size[I]:=100;highlightSyntax('delphimE4YWU','delphi'); Это сообщение отредактировал Budy - 9.1.2005, 19:06

- какую ошибку?

- Ну такую с белым крестиком в красном кружочке. Ни кода ошибки ни хрена поянть нельзя

- красный крестик?! белый кружочек?! это как?! че компилятор пишет-то?

- Код var  i: Integer;  CB: TCheckBox;begin  for i:= 1 to 8 do begin    CB:= (FindChildControl('CB'+IntToStr(I)) as TCheckBox);    if Assigned(CB) then begin // Если удалось найти компонент      if CB.Checked then        Size[I]:=128      else        Size[I]:=100;    end;  end;end;highlightSyntax('delphiNzY1Y2','delphi');

- Alex, хорошо!Теперь уже без ошибки Везде галочки стоят, а весь Size забит значениями "0" - ни "100" ни "120"!Но почумето он их не находит. ЗЫ.В твоем примере заменил 'CB' на 'NB'.

- Код For I:=1 to 8 do if Form1.FindComponent('NB'+IntToStr(I)) is TCheckBox then   if (Form1.FindComponent('NB'+IntToStr(I)) as TCheckBox).checked then     Size[I]:=128 else Size[I]:=100;highlightSyntax('delphiVhM2Ux','delphi');FindComponent - метод формы! следовательно если ищестся в другой форме, то надо указывать форрму не в аргументе метода, а применять метод именно той формы где ищется Это сообщение отредактировал Vit - 9.1.2005, 21:48

- Thanks, ща поглежу

- Во, класс! Спасибо!

- Сорри за Не могу сдержаться от смеха!

- Да ладно.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD