Связать пару объектов

[CrHD]

Приветствую.
Есть класс TReport;
Report.Items[i].Edits[j], где Edits - массив строк. И есть массив типа TcxTextEdit. Как их связать, что бы передавать аргументом TcxTextEdit, и мне бы возвращался TReport с нужным эдитом, в который мне нужно записать инфу из того самого TcxTextEdit.Text?

Есть мысль создать класс, и связывать там объекты, толкая каждый из них в свой TList.
Но что-то я в тупике...

[Lesha]

Report.Items[i].Edits.Text:=cxTextEdit.Text;

[CrHD]

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

Report.Items[i].Edits.Text:=cxTextEdit.Text;

Видимо я плохо сформулировал вопрос...
Необходим класс посредник, в котором бы хранились два массива объектов.
В классе нужен геттер: пытаемся получить Edit[x] => передаем в класс cxTextEdit[x], и метод в классе ищет в массиве cxTextEdit'ов тот, который мы передали, и выводит нам нужный Report.Items[].Edit[];
Так же и сеттер, для установки значения Report.Items[].Edit[] из cxTextEdit.
Что-то вроде реализации паттерна "Посредник"...

На данный момент храню оба объекта в TList

procedure TLink.AddLink(Obj, Control: TObject);
begin
  FObj.Add(Obj);
  FControl.Add(Control);
end;

//получаю значение Report.items[].edits[] по переданному в функцию контролу (TcxEditText);
function TLink.GetObj(Control: TObject): TObject;
var
  i:Integer;
begin
  result:=nil;
  for i:=0 to FControl.Count-1 do
    if FControl[i]=Control then
      Result:=FObj[i];
end;

Зачем вы отвечаете с цитированием всего предыдущего поста ?
Чтоб "простыня" подлиннее получилась ?
Чтоб ваш "драгоценнейший" пост занимал весь экран ?
Вы не видите кнопку справа от кнопки "Цитата" ?
Или вам почему-то не видно пустое окно редактора под последним сообщением, куда можно просто ввести ответ ?
За оверквотинг у нас штрафуют, имейте это ввиду.
Дабы не нарушать правила раздела, внимательно их почитайте...
После 10 ваших сообщений начнете получать штрафы за нарушение правил...