VPF::Выполнение оператора в строке

Leklerk

Дата 31.8.2012, 15:06 (ссылка)

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

Загрузка ...

Бывалый

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

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

Добрый день! Подскажите пожалуйста, как выполнить оператор в строке. Например, надо выполнить

Код


ComboBox1.Text:= '';
ComboBox2.Text:= '';
ComboBox3.Text:= '';
ComboBox4.Text:= '';
ComboBox5.Text:= '';
ComboBox6.Text:= '';
ComboBox7.Text:= '';
ComboBox8.Text:= '';

Я пишу

Код


for I:=1 to 8 do
  Функция('ComboBox'+IntToStr(I)+'.Text:= '''';');

Есть такая Функция?

DarkProg

Дата 31.8.2012, 15:53 (ссылка)

(голосов:2)

Загрузка ...

Законченный романтик

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

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

Код


(FindComponent('Имя компонента') As TComboBox).Text:=''

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

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

Leklerk

Дата 10.9.2012, 18:33 (ссылка)

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

Загрузка ...

Бывалый

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

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

Большое спасибо!

Akella

Дата 12.9.2012, 18:16 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Ещё вариант

Код

TComboBox(FindComponent('Имя компонента')).Text:='';

а лучше

Код


if FindComponent('Имя компонента') is TComboBox then
  TComboBox(FindComponent('Имя компонента')).Text:='';

иначе можно нарваться на exception в один прекрасный день smile

northener

Дата 13.9.2012, 00:49 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Akella @ 12.9.2012, 18:16

)

иначе можно нарваться на exception в один прекрасный день smile

Это уже перестраховка, граничащая с паранойей. smile

В своей собственной программе задать компонент[у/е] типа TComboBox имя "Что-то там"n и при этом ничего об этом не знать/не помнить можно только с очнеь большого бодуна! smile

Хотя, с другой стороны глядя, я ещё никогда сам в своих проектах не использовал функцию FindComponent. Ибо не нужна была она мне никогда.

Это сообщение отредактировал(а) northener - 13.9.2012, 00:57

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

DarkProg

Дата 13.9.2012, 08:41 (ссылка)

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

Загрузка ...

Законченный романтик

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

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

Цитата(Akella @ 12.9.2012, 19:16

)

а лучше

Тогда уж более правильный вариант.

Код


Var Comp:TComponent;
....
Comp:=FindComponent('Имя компонента');
if Comp is TComboBox then
  TComboBox(Comp).Text:='';

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

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

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