[Agasfer2010]

Подскажите, люди! Как обратиться к каждому динамически созданному объекту, если я их создавал так:

Код:

for i := 1 to 4 do
begin
_TableName := TEdit.Create(self);
with _TableName do
  begin
  Parent := _Form;
  Top := 10;
  Left := 10 * i + (i - 1) * 160;
  Width := 160;
  _TableName.Name := _TableName.Text;
  end;
_Polename := TEdit.Create(self);
with _Polename do
  begin
  parent := _Form;
  Top := 60;
  Left := (i - 1) * 40 + 30 * i + (i - 1) * 100;
  Width := 100;
  end;
_Typepole := TComboBox.Create(self);
with _Typepole do
  begin
  Parent := _Form;
  Top := 90;
  Left := (i - 1) * 40 + 30 * i + (i - 1) * 100;
  Width := 100;
  Items.Add('INT');
  Items.Add('CHAR');
  Items.Add('DATE');
  end;
_KeyPole := TCheckBox.Create(self);
with _KeyPole do
  begin
  Parent := _Form;
  Top := 120;
  Left := (i - 1) * 40 + 30 * i + (i - 1) * 100;
  Caption := 'Ключевое поле';
  end;
end;

Admin: Не забываем про теги!

[dr. F.I.N.]

Вариантов много:
1) При создании засунуть все компоненты в удобный для тебя список (TList, TObjectList, и т.п. на твое усмотрение) и обращаться через итемы списка
2) Задать каждому созданному компаненту уникальное имя и обращаться к нему через TXXX(FindComponent(ComponentName))
3) может кто еще идейку подкинет

З.Ы. TXXX - TEdit, TComboBox и т.п. что создал к тому и обращайся

[Agasfer2010]

Спасибо за варианты) Я их рассмотрю. Но у меня есть сомнение: Через 2 вариант можно будет найти все TEditы, допустим? Я их 4 создаю...

[dr. F.I.N.]

По имени компонента можешь найти любой. Только искать придется 4 раза, ведь у тебя будет 4 уникальных имени. Функция FindComponent ищет уникальный компонент по уникальному имени (если мой маразм еще не окреп ). Так же можешь заглянуть в тему про много мемо, там я человечку объяснял как из кучи мемо на форме собрать все воедино и записать в файл. Так что можешь воспользоваться еще свойством Controls той формы, на которой лежат твои едиты и прочие компоненты. Вобщем, тут полет фантазии.

[Agasfer2010]

Или оно не работает или я не понимаю((( И можно объяснить на моём примере?

[dr. F.I.N.]

Первое, что нашел поисковик.

Вот еще приятная и полезная цитата с какого-то форума

поставить курсор на слово FindComponent и тыркнуть F1

[Agasfer2010]

Спасибо большое! Это просто я тупанул))) Всё работает))) А вы можете ещё подсказать по одному вопросу? Я его задал в разделе базы данных))) Заранее спасибо!