[Помидоркин]

Правильно ли я понимаю что переменная типа TObject или его наследников, это всегда указатель, про который компилятору (ну или кому там) не нужно объяснять что это указатель ('^', '@' - вот это вот все) . И сам объект существует (если конечно он был создан) независимо от того сколько указателей на него существует.
Ну т.е. в практическом плане:

Код:

  TPart = class (TObject)
  private
    FName: string;
    FRemainder: Word;
  public
    property Name: string read FName write FName;
    property Remainder: Word read FRemainder write FRemainder;
  end;

  TPartsArray = array of TPart;

  TProduct = class(TObject)
  private
    FName: string;
    FPartList: TPartsArray ;
  public
    property Name: string read FName write FName;
    property PartList: TPartList read FPartList write FPartList;
  end;

могу ли я создавая кучу экземпляров TProduct, в конструкторе или в каком методе, сделать так (массив ведь это же тоже указатель, на первый элемент)

Код:

constructor TProduct.Create(AParts: TPartsArray);
begin
  .....  
  FPartList[someIndex]:= AParts[anotherIndex];
end;

т.е. такое обращение будет обращением к одним и тем же данным в памяти

Код:

MyProduct1: TProduct;
AllParts: TPartsArray;
...
MyProduct1.PartList[i].Name;
AllParts[j].Name;

[lmikle]

Не совсем понятне вопрос, но да, любой экземпляр класса - это указатель.
С массивами там немного другая тема. Да, это тоже указатель, но он обрабатывается компилятором тодельным образом.
А вот каждый элемент массива объектом - тоже обычный указательна объект.

Не уверен, что второй класс в первом примере будет работать так, как ты задумал. В смысле property PartList объявленная как массив. Как я уже приводил пример, там лучше сделать индексированное св-во с геттером и сеттером. Хотя если будешь следить за своим кодом, то может и будет работать...

[Помидоркин]

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

Не совсем понятен вопрос...

Основное что я пытаюсь для себя уяснить: существует ли объект независимо от наличия и количества указателей на него.
Создание объекта это выделение памяти под него и все его поля, присвоение nil указателю не удаляет объект из памяти.
Поля типов не являющихся классами (число, строка, boolen) удаляются автоматом при вызове деструктора объекта.
Объявление переменной типа TSomeClass не создает новый объект (не выделяет под него память), а присвоение:

Код:

CurrenPart:=  AllParts[0];

означает что CurrenPart и AllParts[0] это два указателя на одну и ту-же область памяти.

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

..лучше сделать индексированное св-во с геттером и сеттером

Вот кстати да, это же вот про это?

Код:

    property Parts[Index: Word]: TPart read GetParts write SetParts;
    property Products[Index: Byte]: TProduct read GetProducts write SetProducts;
    property Tasks[Index: Word]: TTask read GetTasks write SetTasks;

Сначала так и сделал, а в других классах, чисто на автомате, объявил свойство типа массив, а потом сам удивлялся что оно работает. И возник вопрос: в чем разница? Если я правильно понимаю, имя (переменная) массива это указатель на первый элемент и при обращении к массиву Array[Index] фактически это будет адрес первого элемента + индекс. Собственно геттер\сеттер это и делают.

Код:

function TMyJSONdb.GetTasks(Index: Word): TTask;
  begin Result:= FTasks[Index]; end;

procedure TMyJSONdb.SetTasks(Index: Word; const Value: TTask);
  begin FTasks[Index]:= Value; end;

[Помидоркин]

Чёта я запутался, собственно что я пытаюсь сделать: есть класс и массив его экземпляров

Код:

  TPart = class (TObject)
  private
    FName: string;
    FNeed: Word;
    FDone: Word;
  public
    property Name: string read FName write FName;
    property Need: Word read FNeed write FNeed;
    property Done: Word read FDone write FDone;
  end;

  TPartsArray = array of TPart;
       .............
AllParts: TPartsArray;

есть класс у которого есть свой массив (пока не понятно чего, это собственно и пытаюсь понять)

Код:

  TProduct = class(TObject)
  private
    FName: string;
    function GetPart(const Index: Byte): TProductPart;
    procedure SetPart(const Index: Byte; const Value: TProductPart);
  public
    property Name: string read FName write FName;
    property Part[Index]: TProductPart read GetPart write SetPart;  //<<<????
  end;
       .............
Product: TProduct

нужно чтобы TProductPart указывал на TPart, но при этом содержал другие поля. Первое что приходит в голову:

Код:

  TProductPart = class(TObject)
  private
    FItem: TPart;
    FCount: Byte;
  public
    property Item: TPart read FItem write FItem;
    property Count: Byte read FCount write FCount; //к количесву элементов отношения не имеет
  end;

выглядит не очень, Product.Part[i].Item, по-моему наследование и полиморфизм не для этого придумывали.
Вроде как нужно наследовать

Код:

  TProductPart = class(TPart)
  private
    FCount: Byte;
  public
    property Count: Byte read FCount write FCount;
  end;

непонятно что дальше, допустим

Код:

(Produdct.Part[i] as TPart):= AllPart[k]; //ну или типа того

ну т.е. если я не создаю Produdct.Part[i], то где будет храниться Сount? А если создаю, то выделяется память и все вот это становится бессмысленным.

upd. Пришел в голову вот такой вариант:

Код:

  TProductPart = class(TObject)
  private
    FPart: TPart;
    FCount: Byte;
    function GetName: string; //SetName - по аналогии;
  public
    property Name: string read GetName write SetName;
      // и все остальное так же
    property Count: Byte read FCount write FCount; //к количесву элементов отношения не имеет
  end;
    .....
function TProductPart.GetName: string
begin
  Result:= FPart.Name;
end;

Вроде должно работать, но вот это вот - дублировать каждое свойство с прописыванием для каждого Get\Set. Есть у меня ощущение что все это можно как-то проще и в Delphi давно уже придумано.

[lmikle]

Ой бяда, бяда...

Ты что, пытаешься сделать связь многие-ко-многим в виде объектов?
Тогда уж бери какую-нибудь локальную БД и пользуй ее.

ЗЫ. Вообще не понимаю задачу. Что ты пытаешься сделать вообще...

[Помидоркин]

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

сделать связь многие-ко-многим в виде объектов

Вообще не понимаю задачу. Что ты пытаешься сделать вообще...

Именно это и пытаюсь
БД в первую очередь и рассматривались, в самом начале я вообще пытался в Access, но со времен Office 97 его настолько улучшили что... печальная тема.
Пытался с БД в Delphi, но по старой доброй традиции материалы по теме имеют вид: "одно яблоко плюс одно яблоко будет два яблока, теперь вы знаете математику и для закрепления полученных знаний вот вам квадратное уравнение".
Впрочем не это главное, в общем по совокупности многих факторов решил делать сам, с нуля. А бонусом хочу проникнуться духом ООП, в который, как выясняется, я нифига не умею, ну почти.