Передача данных обьектов между 2-мя формами, через переменную

[Человек_Борща]

Доброго времени суток!

Имеется код, и там есть проблема.

procedure TRulesEditorForm.EditRuleBtnClick(Sender: TObject);
var
  Form: TRuleEditForm; //run-time создание 
  d: TRule;
  x: Integer;
begin
  x := RulesList.ItemIndex;
  if x <> -1 then
  begin
    d := TRule(RulesList.Items[x].Data);
    if (d <> nil) then
    begin
      d := RM.RuleByID(d.Id);
      Form := TRuleEditForm.Create(Application); //...
      try
       {
       Переменая Rule просто обьявлена в секции public у TRuleEditForm
       Она НЕ создается и НЕ уничтожается, они просто временное       вместилище данных.
       } 
       Form.Rule:=d; //Перемещаю данные в окно редактора
       {
        Открываю редактор и все данные доспны, я могу делать с ними, 
        что хочу. 
       }
        Form.ShowModal;
        if (Form.ModalResult = mrOk) then
        begin
          {
             Как вернуть новые данные назад в RM.RuleByID(d.Id):=?
          }

          RM.UpdateAll;
          RM.SaveToFile(myDir + cRulesFileName);
        end;
      finally
        Form.Free;
      end;
    end;
  end;
end;

Нет ли при таком обмене каких-нибудь утечек?

Тупняк забирает уже. Кроме тупого присвоения
RM.RuleByID(d.Id).<SameVar>:=Form.R ule.<SameVar>

Слишком много придется писать.

Ничего более умного не приходит. Может есть выход?

[veniside]

TRule -- это класс, я надеюсь?

d := TRule(RulesList.Items[x].Data);
if (d <> nil) then
    begin
         d := RM.RuleByID(d.Id);

это зачем так? Типо RuleByID() вернёт более надёжный указатель на тот же экземпляр класса?

Открываю редактор и все данные доспны, я могу делать с ними,
что хочу.
..
Как вернуть новые данные назад в RM.RuleByID(d.Id):=?

данные уже там, ничего возвращать не надо.

[Человек_Борща]

это зачем так? Типо RuleByID() вернёт более надёжный указатель на тот же экземпляр класса?

В целом, да.

в ListItem.Data - указатель на обьект(Сам обьект?).
Который может не соответствовать своей копии в общем списке. Ед. постоянная это id, который генерируется и присвайвается при добовлении в общий список а затем обьект помещается в поле Data.

Может я опять грабли делаю, НО Если я делаю так:

function TTargetsList.Add(aData: TTarget): boolean;
var
  LI: TListItem;
begin
  Result := False;
  if not TargetExists(aData) then
  begin
    if fVisible then
    begin
      LI := fLV.Items.Add;
      LI.Caption := aData.Name;
      LI.SubItems.Add(aData.Path);
      LI.Data := aData;
    end;
    inherited Add(aData);
    Result := True;
  end
  else
    aData.Free;
end;

LI.Data указывает или содержит обьект?

данные уже там, ничего возвращать не надо.

Оу.. почему все так просто? Почему?

[veniside]

Ед. постоянная это id

тогда можно этот id хранить в списке, а экземпляр класса получать так:

d := RM.RuleByID(  integer(RulesList.Items[x].Data)  );

далее, смотрим:

aData: TTarget
...
LI.Data := aData;

хм, в список помещаем нечто типа TTarget, а потом берем из него нечто типа TRule:

d: TRule;
...
  d := TRule(RulesList.Items[x].Data);

как оно вобще работает? Или TRule -- это наследник от TTarget (или наоборот)?

LI.Data указывает или содержит обьект?

все объекты -- это указатели. Например, такое присвоение, это просто присвоение указателя:

Form.Rule:=d;

т.е. Form.Rule и d указывают на одну и ту же область памяти. Если мы меняем что-то у Form.Rule, естетвенно это меняется и у d (т.к. фактически это один и тот же экземпляр). Вот, смотрите:

type
  TPerson = class
    name: string;
  end;

var
  A, B: TPerson;
begin
  A := TPerson.Create();
  A.name := 'A';
  //
  B := A;  // копируется только указатель 
  //
  B.name := 'B';
  //
  writeln(A.name); // печатает 'B', естественно
end.

так что я не помимаю, что ещё нужно куда передавать, если у вас данные и так в классе сидят.

почему все так просто? Почему?

так задумано.

[Человек_Борща]

Вот так все выглядит:

-TRulesManager(RM)
--TRule
---TTargetsList
----TTarget

Приведенный код в 3-ем посте аналогичен для TRulesManager, и вместо TTarget там TRule.

TRulesManager список правил, каждое правило имеет список целей для которых оно работыет.
Списоц целей содержит в себе tTarget.
И список целей и список правил должны быть связаны с ListView.
Для правильного определения элемента в нивидемом списке(RM) используется идентификацтор из data-поля, где лежит указатель на данные(сами данные?), которые привязаны к этому элементу видимого списка(ListView). Суть в том, чтобы юзер работал ровно с тем, что выбрал в списке, а не так, что выбрал яблоко, а продали грушу.

[veniside]

если честно, понятней не стало, но общий смысл простой: сколько бы указателей на один и тот же объект не хранилось бы в разных местах (списках, листвьювах, листобках, whatever), все они указывают на одну и ту же область памяти.

На самом деле создать копию объекта не так-то и просто, так что я не совсем понимаю, зачем нужны какие-то дополнительные ухищрения с id.

Опять же, вот простой пример. Допустим, есть некий класс TRule, экземпляры которого мы храним в L: TList (аналог вашего RM). Добавим несколько экземпляров в список (считаем, что в конструктор передаётся id):

L.Add(TRule.Create(1));
L.Add(TRule.Create(2));
L.Add(TRule.Create(3));

Добавим их так же и в LV: TListVew:

LV.AddItem('1', L[0]);
LV.AddItem('2', L[1]);
LV.AddItem('3', L[2]);

Допустим, юзер нажал на некий элемент списка, и мы получаем экземпляр TRule:

var
  r: TRule;
begin
  r := LV.Items[LV.ItemIndex].Data;

и тут вы предлагаете для "надёжности" получить еще раз тот же самый объект, но теперь из внутреннего списка L (считаем, что метод ItemById() мы создали):

if (nil <> r) then
  r := L.ItemById(r.id);

Смысла в этом нет, т.к. оба указателя будут одинаковы.

Далее, передаём r в другую форму, где у экземпляра меняется несколько полей. Ну, к примеру:

RuleEditForm.Rule := r;
...
RuleEditForm.Rule.Name := 'New Name';
RuleEditForm.Rule.Age := 168;

Теперь вы спрашиваете, а как передать изменения в наш исходный L: TList? А они уже там, передавать нечего. Если вывести на печать (считаем, что юзер кликнул на второй элемент):

writeLn(TRule(L[1]).Name);  // 'New Name'
writeLn(TRule(L[1]).Age);  // 168

получим уже новые значения. То же самое относится и к тому, что хранится в LV: TListVew.

Т.е. никаких копий данных не создаётся (если специально этим не заниматься).