FindComponent

[zdus2757]

Всем привет, такая проблемка у меня возникла с FindComponent
пишу так:

For N:=2 to 8 do
Begin
if TCheckBox(Form1.Setting.FindComponent('CheckBox' + IntToStr(N)) ).Checked then
begin
Config.WriteString('Настройки',ZagStr3[N-1],'Включены');
Config.WriteInteger('Настройки',ZagStr2[N-1],StrToInt(TEdit(Form1.Setting.FindComponent('Edit' + IntToStr(N-1)) ).Text));
end else begin
Config.WriteString('Настройки',ZagStr3[N-1],'Выключены');
Config.WriteInteger('Настройки',ZagStr2[N-1],0);
end;
End;

это последнее что я написал "пытаясь заставить его работать"
пробовал множество разных способов чтоб он заработал и в итоге 1 способ заработал, но работал только 1 раз, т.е. когда я тыкал кнопку он мне писал ошибку, но не A/V а другую, этот код что сейчас я показал выдает мне A/V

вопрос мой вот в чем: что именно возвращает FindComponent?
пример отсюда я пытался использовать и как раз это и был "рабочий" способ но как сказал при втором нажатии на кнопку вызывает ошибку

код должен записывать исходя из чекбоксов данные в ini файл

[Вадим Мошев]

if TCheckBox(Form1.Setting.FindComponent('CheckBox' + IntToStr(N)) ).Checked

Перепишите это так:

if (Form1.Setting.FindComponent('CheckBox' + IntToStr(N)) AS TCheckBox).checked then...

[zdus2757]

Так тоже вроде пытался но не выходило, тестану завтра ещё раз, спасибо)

[Вадим Мошев]

что именно возвращает FindComponent?

Возвращает TComponent.

Если не ошибаюсь, от этого класса наследуются все остальные компоненты (например, TEdit, TMemo и т.д)

Чтобы выполнить преобразование к более конкретному типу, используют оператор AS.
Например:

var 
	tmp: TComponent;
	st: string;
begin
...
	tmp:=form1.findComponent('тут мы напишем имя компонента');
	// будет работать, если tmp ГАРАНТИРОВАНО ьудет содержать объект TEdit
	st:=(tmp AS TEdit).text; // Обращаемся к полю text найденного компонента, предварительно преобразовав его тип к TEdit
...
end;

[Аватар]

as подымет исключение, если там не то, что ожидается. Если Setting панель или другой контейнер с чекбоксами, то лучше с проверкой так:

var xComponent: TComponent;

  xComponent:= Form1.Setting.FindComponent('CheckBox' + IntToStr(N)); // А Ещё вторая закрывающая скобка - прим. Вадим
  if (xComponent is TCheckBox) and TCheckBox(xComponent).Checked then ...

Можно и по массиву-свойству Controls этой панели пробежаться. с тем же результатом

[Вадим Мошев]

as подымет исключение, если там не то, что ожидается

Да. Будет написано "Invalid typecat (недопустимое преобразование типа)". Хотел было рассказать про IS, да решил остановиться.

Кстати, Евгений.

xComponent:= Form1.Setting.FindComponent('CheckBox' + IntToStr(N):

Опечатка?

[Аватар]

Опечатка?

Да, подправил. Вечный напряг с регистрами клавиатуры

[zdus2757]

Сообщение от Аватар

as подымет исключение, если там не то, что ожидается. Если Setting панель или другой контейнер с чекбоксами, то лучше с проверкой так:

var xComponent: TComponent;

  xComponent:= Form1.Setting.FindComponent('CheckBox' + IntToStr(N)); // А Ещё вторая закрывающая скобка - прим. Вадим
  if (xComponent is TCheckBox) and TCheckBox(xComponent).Checked then ...

Можно и по массиву-свойству Controls этой панели пробежаться. с тем же результатом

подействовало только так, спасибо
да, Setting это панель

Еще вопрос появился, сейчас пытался написать что-то похожее только когда "открываются настройки" он должен загружать из файла в чекбоксы, но тем же финдом что-то не вышло, ошибок нет но и записывает не туда похоже, можно ли так же изменять свойства компонента? У меня мало времени было пытаться что-то написать, поэтому не все опробовал, может быть и сам найду как

[min@y™]

Всем привет, такая проблемка у меня возникла с FindComponent
пишу так:

ИМХО, метод FindComponent() надо использовать только в самом крайнем случае.
У тебя тут совершенно не такой случай, судя по коду.

Объясни по-русски, что тебе нужно получить.

[zdus2757]

Сообщение от min@y™

ИМХО, метод FindComponent() надо использовать только в самом крайнем случае.
У тебя тут совершенно не такой случай, судя по коду.

Объясни по-русски, что тебе нужно получить.

я нормально объяснил что я хочу

но да, ты прав, я переписал код, засунул чекбоксы и едиты в массивы и без FindComponent сделал циклы, и все работает