VPF::Ошибку компил выдает - Форум программистов

Budy

Дата 9.1.2005, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

:Приветствую
Вот ишбку компилятор выдает в коде:

Код


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;

Это сообщение отредактировал(а) Budy - 9.1.2005, 19:06

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

z-END

Дата 9.1.2005, 19:25 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

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

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Budy

Дата 9.1.2005, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

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

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

z-END

Дата 9.1.2005, 19:36 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

красный крестик?! белый кружочек?! это как?! smile

че компилятор пишет-то?

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Alex

Дата 9.1.2005, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Код


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;

--------------------

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

Budy

Дата 9.1.2005, 21:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

Alex, хорошо!
Теперь уже без ошибки smile

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

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Vit

Дата 9.1.2005, 21:40 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Код


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;

FindComponent - метод формы! следовательно если ищестся в другой форме, то надо указывать форрму не в аргументе метода, а применять метод именно той формы где ищется

Это сообщение отредактировал(а) Vit - 9.1.2005, 21:48

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Budy

Дата 10.1.2005, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

Thanks, ща поглежу

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Budy

Дата 10.1.2005, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

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

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Unknown_Error

Дата 10.1.2005, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 3.1.2005

Репутация: нет
Всего: нет

Цитата(Budy @ 9.1.2005, 19:32)

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

Сорри за

Не могу сдержаться от смеха! smile

Budy

Дата 11.1.2005, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

Да ладно.

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »