[CrHD]

Приветствую.
Существует класс TReport;
Нас интересует Report.Items[i].Edits[i]; где Edits: array of string;
Так же у нас есть динамически создаваемые TcxTextEdit (аналог TEdit);
RepEdit[i, j]: TcxTextEdit;

Собственно RepEdit заполняются из Report.Items[].Edits[];
Но необходимо реализовать и обратную связь, т.е. зная RepEdit - получить Report.Items[].Edits[] и обновить в нем данные.

Парюсь с созданием класса, который будет хранить два массива объектов; который при этом возвращал бы Report.Items[].Edits[], если задать аргументом RepEdit[i, j]: TcxTextEdit; и наоборот.
Так же присваивать Report.Items[].Edits[], зная только RepEdit[i, j]: TcxTextEdit;

В общем получается что-то вроде паттерна "Посредник" (Mediator), только вот реализовать рабочий прототип не получается >_<'

Что имеем:

Код:

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

constructor TLink.Create;
begin
  FObj:=TList.Create;
  FControl:=TList.Create;
end;

//Получаем значение Report.Items.Edits по эдиту
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;


//А вот тут думаем как бы установить значение Report.Items.Edit[], зная только RepEdit[i, j]: TcxTextEdit
procedure TLink.SetParam(Control: TObject; Param: string);
var
  i:integer;
begin
  for i:=1 to FControl.Count do
    if FControl[i]=Control then
      FObj[i]:=Param; // Таким образом изменений в Report не произойдет, здесь я завис >_<'
end;

//========
В майн модуле линкуем:
_Link.AddLink(Report.Items[j].edits[i], RepEdit[j, i]);

Прошу прощения за сумбурность вышеизложенного, но прошу помощи.
Заранее благодарю.

[Pyro]

Ничо не понял, но если надо отображение объектов одних на другие , в количестве <= 255, то есть TObjectBucket

[CrHD]

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

Ничо не понял, но если надо отображение объектов одних на другие , в количестве <= 255, то есть TObjectBucket

Упрощаю.
Грубо говоря: Есть два массива объектов, связанных между собой 1*1
Первый массив - список строк, загруженных из файла.
Второй массив - массив TEdit, в которые помещаются данные из первого массива, по строчке в каждый эдит.

Так вот, представим что юзер изменил данные в Edit'ах - теперь нам необходимо (допустим по кнопке "Сохранить") все Edit'ы переписать обратно в первый массив (сохранить изменения). Для этого нужно знать какой эдит соответствует какому элементу в первом массиве.

Связь хотим хранить в отдельном классе, который может вернуть (и изменить) элемент массива, получив аргументом Edit, и наоборот. А как я это пытался реализовать - в первом посте.

[Pyro]

Если у TcxTextEdit есть tag, можно там хранить любую информацию
Если хочется в отдельном классе, то я делал отображение строк на переменные http://www.delphisources.ru/forum/sh...70&postcount=5 вобще работает, но недоделал