Список с уникальными идентификаторами содержащихся объектов

[Alex11223]

property это просто более удобный синтаксис для GetXXX/SetXXX функций.

Я ж показал какие: можно сделать его неизменяемым извне.
Ну или вообще без поля что-то вычислять.
Или делать что-то еще при присваивании.

[Аватар]

К паблик есть доступ из кода. А свойство можно сделать только для чтения, защитив его от ошибочного изменения из вне

[Pavia]

Инкапсуляция. Вы когда пишете property можете сделать проверку по входу. Ваш объект всегда будет иметь гарантированно-рабочее состояние.
Плюс параллельность и асинхронность. Можно организовать синхронизацию по коду.
Но в целом это не такие большие преимущества.
Обязательно для COM. Для плагинов это то что доктор прописал.

[Ship_1]

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

Я ж показал какие

Какие - это я понял. Я не понял, чем

setMaxID(12)

лучше, чем

MaxID:=12

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

можно сделать его неизменяемым извне.

Хм. А это интересно. Учту на будущее. Но в данном случае мне это не подойдёт: у меня есть список из наследников TNomObject и список из других наследников TNomObject. В каждом из вторых наследников есть подсписок из некоторых из первых TNomObject.
Условно говоря, есть список отрезков и список трасс. Каждая трасса состоит из нескольких отрезков.
Когда я создаю отрезок, я добавляю его по очереди сначала в объект трассы а потом в список отрезков (надеюсь, добавляется один и тот же и при изменении в списке отрезков изменится и в трассе, не проверял пока). Но списки разные, а ID у отрезка должно быть одно, назначаться списком отрезков. А у меня получается, что оно сначала назначается одним списком, а потом другим меняется (если там не разные копии создаются).

[Ship_1]

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

Вы когда пишете property можете сделать проверку по входу.

Уже читал эту фразу, когда разбирался с классами, но так её и не понял. Как это? (в кодовом виде примера) Добавить условие проверки в Set? Или что-то другое?

[Alex11223]

Так вы ж ID хотели постоянным сделать.

Ну и для наследников можно protected вместо private если надо.

[Ship_1]

Alex11223 Ну да, постоянным, пока есть этот отрезок.
Хм. А если сделать его неменяемым извне, то тогда и проблемы с изменением при двойном добавлении не будет? Но тогда и присваивать его не в Add надо?

[Alex11223]

"двойном добавлении" это как?
Присваивать в конструкторе.

[Ship_1]

Ну я ж написал: у меня есть список отрезков и список трасс. Каждая трасса содержит список отрезков, в который входят некоторые из тех, которые в списке отрезков. Что-то типа такого:
[отрезок 1, отрезок 2, отрезок 3, отрезок 4, отрезок 5, отрезок 6, отрезок 7, отрезок 8, отрезок 9]
Трасса 1: [отрезок 2, отрезок 5, отрезок 7]
Трасса 2: [отрезок 1, отрезок 5, отрезок 7]
Трасса 1: [отрезок 3, отрезок 4, отрезок 6]
Отрезок я сначала добавляю в список отрезков, а потом в трассу. Вот и получается двойное добавление.

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

[Ship_1]

Воспользовавшись советами сделал из ID property и запихнул его присвоение в Create, изменил Add в списке, убрав Create объекта в него. Но теперь при добавлении-создании объекта программа просто прекращает работу с сообщением от винды:

"возникшая проблема привела к прекращению работы программы"

Как это должно быть сделано, чтобы этой ошибки не было?

type
  TNomObject = class
  public
    ID: integer;
    constructor Create(NewID: integer);
  end;
  TNomList = class(TObjectList)
  private
//    Function FindEmptyID: integer;
    function GetItem(Index: Integer): TNomObject;
    procedure SetItem(Index: Integer; const Value: TNomObject);
    function GetNextMaxID: Integer;
    function getMaxID: Integer;
    procedure setMaxID(const Value: Integer);
    property MaxID: Integer read getMaxID write setMaxID;
  public
    function FindID(NomID: Integer): Integer;
    function Add(AObject: TNomObject; CreateNew: boolean = true): Integer;
    property Items[Index: Integer]: TNomObject read GetItem write SetItem; default;
  end;
  ...
  TSegm = class(TNomObject)
    ...
  end;
  TSegms = class(TNomList)
  private
    function GetItem(Index: Integer): TSegm;
    procedure SetItem(Index: Integer; const Value: TSegm);
  published
  public
    property Items[Index: Integer]: TSegm read GetItem write SetItem; default;
  end;
  TTrace = class(TNomObject)
    ...
    Segments: TSegms;
  end;
  TTraces = class(TNomList)
  private
    function GetItem(Index: Integer): TTrace;
    procedure SetItem(Index: Integer; const Value: TTrace);
  published
  public
    property Items[Index: Integer]: TTrace read GetItem write SetItem; default;
  end;
  TLevel = class(TNomObject)
    ...
    LevelTraces: TTraces;
  end;
  TLevels = class(TNomList)
  private
    function GetItem(Index: Integer): TLevel;
    procedure SetItem(Index: Integer; const Value: TLevel);
  published
  public
    property Items[Index: Integer]: TLevel read GetItem write SetItem; default;
  end;
  ...
  TForm1 = class(TForm)
    ...
    procedure N1Click(Sender: TObject);
	...
  private
    { Private declarations }
  public
    { Public declarations }
	...
    Levels: TLevels;
    Segms: TSegms;
	...
  end;


constructor TNomObject.Create(NewID: integer);
begin
  ID := NewID;
end;

function TNomList.GetNextMaxID: Integer;
begin
  Result:=getMaxID+1;
end;

function TNomList.getMaxID: Integer;
begin
  Result:=MaxID;
end;

procedure TNomList.setMaxID(const Value: Integer);
begin
  MaxID:=Value;
end;

function TNomList.GetItem(Index: Integer): TNomObject;
begin
  Result := TNomObject(inherited GetItem(Index));
end;

procedure TNomList.SetItem(Index: Integer; const Value: TNomObject);
begin
  inherited SetItem(Index, Value);
end;

function TNomList.FindID(NomID: Integer): Integer;
begin
  For Result:=0 to Count-1 do
    If Items[Result].ID = NomID then
      exit;
  Result:=-1;
end;

//Function TNomList.FindEmptyID: integer;
//begin
//  Result:=0;
//  If count>1 then While FindID(Result)>=0 do inc(Result);
//  ShowMessage(IntToStr(Result));
//end;

function TNomList.Add(AObject: TNomObject; CreateNew: boolean = true): Integer;
begin
  if CreateNew then
  begin
    AObject := TNomObject.Create(getMaxID);
    SetMaxID(GetNextMaxID);
  end;
  Result := inherited Add(AObject);
//  Items[Result].ID:=FindEmptyID;
end;


procedure TForm1.N1Click(Sender: TObject);
var
  NewLevel:TLevel;
begin
  ...
  If Form2.ShowModal=mrOK then
  begin
    ShowMessage('Adding');
    Levels.Add(NewLevel);
    ShowMessage('Added');
	...
  end;
end;