Заполнение окон редактирования одним циклом

@Cancion2able · Регистрация: 08.12.2012

Author24 — интернет-сервис помощи студентам

Привет, коммьюнити! Сидел я, значит, нажимал Ctrl+C, Ctrl+V, да только и поспевал порядковые номера компонентов редактировать. А потом пришла мысль: а можно ли это сделать с помощью цикла?

Думается мне как-то вроде этого...

C++

1
2
3

for (int i = StrToInt(Edit1->Text); i <= StrToInt(Edit10->Text); i++) {
                "сюда надо что-то вписать" = 0 + rand() % 10;
        }

Вопрос в том, как присвоить?

@aLarman · 02.04.2014, 12:04

боюсь что в цикле обращаться к Edit1 Edit2 Edit3 и т.д не получится

@volvo · 02.04.2014, 12:39

С чего бы это? FindComponent("Edit" + IntToStr(i)) никто не отменял...

А еще проще (чтобы не зависеть от названий компонентов) - просто пробежаться по всем компонентам формы, и если ClassName = "TEdit" (ну, можно еще какой-нибудь Tag для нужных компонентов выставить, если не все Эдиты надо заполнять), то производить нужные действия.

@SatanaXIII · 02.04.2014, 12:41

Нашпигует каждый четный Edit случайными значениями:

C++

for( int i = 0; i < this->ComponentCount; i++ )
  if( this->Components[i]->ClassNameIs( "TEdit" ) )
    if( this->Components[i]->Name[this->Components[i]->Name.Length()] % 2 )
      {
        ((TEdit*)this->Components[i])->Text = rand() % 10;
      }

Добавлено через 61 секунду

Сообщение от UI

FindComponent

Все время про него забываю.

AntonChik · 02.04.2014, 12:45

aLarman, зря боитесь. Можно.
перебрать существующие:

C++

1 2	for(int i=1;i<10;i++) ((TEdit*)FindComponent("Edit"+String(i)))->Text="Я Edit номер"+String(i);

создать новые:

C++

TEdit **Edits;
int Num=10;
Edits=new TEdit*[Num];
for(int i=0;i<Num;i++)
{
Edits[i]=new TEdit(this);
Edits[i]->Parent=this; 
Edits[i]->Text="Я Edit номер"+String(i);
//...
}

опоздал... )))

@Cancion2able · 02.04.2014, 13:23 **[ТС]**

Cпасибо всем!

@Avazart · 02.04.2014, 17:43

Почему сразу и создавать компоненты динамически в цикле, помещая их в TList или TObjectList?

@aLarman 654 / 575 / 164 Регистрация: 13.12.2012 Сообщений: 2,124
	02.04.2014, 12:04	2
	боюсь что в цикле обращаться к Edit1 Edit2 Edit3 и т.д не получится 0

@volvo Супер-модератор 32836 / 21173 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	02.04.2014, 12:39	3
	С чего бы это? FindComponent("Edit" + IntToStr(i)) никто не отменял... А еще проще (чтобы не зависеть от названий компонентов) - просто пробежаться по всем компонентам формы, и если ClassName = "TEdit" (ну, можно еще какой-нибудь Tag для нужных компонентов выставить, если не все Эдиты надо заполнять), то производить нужные действия. 1

@Cancion2able 7 / 7 / 2 Регистрация: 08.12.2012 Сообщений: 108
	02.04.2014, 13:23 [ТС]	6
	Cпасибо всем! 0

@Avazart 8385 / 6147 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	02.04.2014, 17:43	7
	Почему сразу и создавать компоненты динамически в цикле, помещая их в TList или TObjectList? 0