VPF::List index out of bounds (0) при поиске компонента

mr.Anderson

Дата 23.9.2006, 12:50 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Так-с.

На форме есть компонент TPageControl под именем Note с одной вкладкой.
На этой вкладке расположены объекты (ну, вообще-то один объект, но это не суть важно).
Объект этот - TRichEdit с именем Rich.

Мне нужно обнаружить этот объект и что-то сделать с ним.
Пишу следующее:

Код


//имя процедуры (клик по кнопке), затем
var
 i: Byte;
begin

 WITH Note DO
  for i:=0 to ActivePage.ComponentCount-1 do
   if( ActivePage.Components[ i ].Name = 'Rich' ) then
    TRichEdit( ActivePage.Components[ i ] ).Undo();

end;

Но! При срабатывании этой функции я получаю ошибку:

Цитата

List index out of bounds (0)

Ну, т.е. типа компонента с таким номером нет и быть не может. Пробовал ставить в номер компонента 1, хотя этои глупость, получал ту же картину.

Где я ошибся?

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

December

Дата 23.9.2006, 13:13 (ссылка)

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

Загрузка ...

Antitheorist

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

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

Попробуй вот тут
i: Byte;
использовать тип, который может хранить отрицательные значения, например, интегер smile

Добавлено @ 13:19
а вот тебе хинт номер 2:
showmessage(Rich.Owner.Name);

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

Для друзей с винграда - скидки на разработку сайтов

VAngeL86

Дата 23.9.2006, 13:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

Rich "принадлежит" форме а не Note.ActiveSheet-у ...если сделать так

Код


var
 i: Byte;
begin
 Rich.Create(Note.ActiveSheet);
 WITH Note DO
  for i:=0 to ActivePage.ComponentCount-1 do
   if( ActivePage.Components[ i ].Name = 'Rich' ) then
    TRichEdit( ActivePage.Components[ i ] ).Undo();

код выполняется...хотя 2 раза данный код не пойдёт....
Нужно как то добиться чтобы у Rich Owners был TabSheet... лично я не знаю как!

mr.Anderson

Дата 23.9.2006, 13:57 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

December, благодарю за подсказки! Все получилось убиранием With и заменой Component на Control...
От меня + в репку. smile

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

Matematik

Дата 23.9.2006, 16:51 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

Не используй byte для цикла.

mr.Anderson

Дата 23.9.2006, 19:41 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Matematik, я уже понял. smile

Заменил его на ShortInt.

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

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