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

[Alex11223]

Падает где? При запуске с отладчиком обычно показывает место.

Я не вижу тут создания Levels например.

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

сделал из ID property

где?

[Ship_1]

Levels и Segms:

procedure TForm1.FormCreate(Sender: TObject);
begin
  ....
  Levels:=TLevels.Create(true);
  Segms:=TSegms.Create(true);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Levels.Free;
  Segms.Free;
end;

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

где?

Хотел сказать, из MaxID

Падает где-то в районе создания компонента. У меня портативная Дельфи, без отладчика... Я добавил ShowMessage в Add

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

creating показывает, а до created не доходит...

[Alex11223]

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

У меня портативная Дельфи, без отладчика

Это как?оО

Ну так добавляйте дальше вывод пока не найдете где )

[Ship_1]

Ну как-как... Например, как-то так
http://delfcode.ru/load/delphi/kompi...able/9-1-0-577

Докопался.

constructor TNomObject.Create(NewID: integer);
begin
  ShowMessage('new creating');
  ID := NewID;
  ShowMessage('new created');
end;

Почему-то входит в бесконечный цикл. Всё время появляется окно

MID getting 60648456

Видимо, число случайное: при втором запуске оно уже было 61893640.

[evg_m]

procedure TNomList.setMaxID(const Value: Integer);
begin
  MaxID:=Value; // И ЧТО вы здесь устанавливаете??? 
end;

свойство MaxID ?... И получаете StackOver. (P.S. тот самый бесконечный цикл)

А здесь надо устанавливать глобальную переменную. (ту которой у вас не наблюдается).

TNomList вообще по моему разумению не должен заниматься "внутренностями" TNumObject.

TNumObject =class
protected
  class function GetNextGlobalID: integer;  
private 
  FID: integer; //чтобы отличать  имена свойства(property ID) рекомендуется имена соответсвующих полей(переменных) начинать с F(ID)
  function GetID: integer;
  procedure SetID(Avalue: integer);
protected
  property ID: integer read GetID write SetID;
public
  constructor Create;
 end;

var
   GlobalCurrentID: integer; // глобальная переменная "счетчик" выданных идентификаторов.

class function GetNextID: integer; // все конструкторы будут использовать эту функцию (если конечно вызыовут её) 
begin
   result:=GlobalCurrentID; //прочитали глобальную переменную
   Inc(GlobalCurrentID); // И ТУТ же задали ей новое значение.
// больше НЕ НАДО заботиться о возможном дублировании 
end;

constructor TnumObject.Create;
begin
  inherited Create; //по хорошему надо ВСЕГДА вызывать конструктор родительского класса
  ID:=GetNextGlobalID; // теперь TnumObject САМ следит за правильным распределением идентификаторов 
end;

теперь TNomList может быть избавлен от SetMaxID, GetMaxID, GetNextMAxID.
Да и property MaxID тоже не к чему.

но можно и еще лучше (запретить изменение Fid даже чисто теотетически

TnumObject =class
.......
private
  FID: integer;
  function GetID: integer;
public
  property ID: integer read GetID  write SetID;
  constructor Create;
end;

constructor TnumObject.Create;
begin
  inherited Create;
  FID:=GetNextGlobalID; //конструктор сможет "напрямую" записать в поле
end;

ВСЕ прочее даже теоретически не смогут сделать

var
  r: TnumObject;

....
r.ID:=45; // компилятор скажет что невозможно(ID) использовать в левой части присвоения.

[Ship_1]

Здорово... Спасибо!
Только вот хочется уточнить:

class function GetNextID: integer;

что означает class перед function?
И не опечатка ли здесь?

class function GetNextID: integer; // все конструкторы будут использовать эту функцию (если конечно вызовут её) 
begin
...

или GetNextGlobalID вместо GetNextID?

UPD: Хм... Только с глобальной переменной не совсем однозначно пойдёт. У меня есть TLevel, TTrace и TSegm, они все - наследники TNumObject, отличаются дополнительными свойствами и у каждого класса - свой счётчик ID. Создать ещё две переменные и как-то модифицировать GetNextGlobalID, или в данном случае имеет смысл вынести счётчик в список этих объектов?

[evg_m]

или GetNextGlobalID вместо GetNextID?

конечно же опечатка.

class function // означает что данная функция для своего вызова не требует наличия созданного объекта.
В данном случае это вовсе не требуется, так что смело можно

class  function

мы все равно используем её только для уже созданных объектов.

отличаются дополнительными свойствами и у каждого класса - свой счётчик ID. Создать ещё две переменные и как-то модифицировать GetNextGlobalID,

три переменных и ТРИ функции в каждый класс TLevel TTrace Tsegm и соответственно ТРИ же РАЗНЫХ конструктора.
P.S. от разных конструкторов можно избавиться путем использования виртуальности функции.

или же подумать и решить что вполне можно обойтись ОДНИМ счетчиком.
ну будет так и что в этом будет плохого.

Tlevel 1; 3; 5;
TSegm 2; 6; 8;
TTrace 4; 7; 9

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

var
  r1, r2: TNumOject; 
  r1:=TLevel.Create;
  r2:=TLevel.Create

  if r1=r2 then

а наличии ТРЕХ счетчиков и без приведения типов

var
  r1, r2: TnumObject;

  r1:=TLevel.Create;
  r2:=TSegml.Create;

  if r1.ID=r2.ID then  // два разных ТИПА, но ОДИНАКОВЫЙ ID

поиск в списке?

r:=levels.Add;
j:=levels.IndexOf(r);
x:=levels.items[j];
if r=x then ....

[Ship_1]

ID предполагается использовать, возможно, для поиска (не додумал ещё до этого), но в первую очередь для сохранения и загрузки (чтобы после из текстовых файлов обратно составлять списки сегментов, трасс и уровней). Исходя из этого, вроде, и ничего плохого, что счётчик один...

[evg_m]

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

М-м-дя...
в таком случае потребуется либо ДВА конструктора

constructor Create(newID: integer );  для чтения сохраненных данных.
constructor Create; // для "программного" создания новых.
///  ну впрочем можно и один
constructor Create(newID: integer =0); // с использованием значения по умолчанию  для создания новых.

так что самое время подумать о том КАК будет выполняться ввод данных из файла.

а еще конструктор с "ручным" вводом потребует и "ручного" изменения глобальной переменной.

function TnumObject.GetNextGlobalID(currid: integer =0): integer;
begin
  if currid>GlobalMaxID then begin
   GLobalMaxID:=currid +1; //меняем нашу глобальную переменную на новое большее число 
    // если этого не сделать, то потом ПРИ генерации новых пойдут повторы.
   // для следующих мы НЕ можем использовать currID;
  end;
  if currid>0 then // независимо от значения GlobalMaxID мы должны вернуть 
     result:=currid // РОВНО то, что нам передали
  else begin
    result:=GlobalMaxID; 
    Inc(GlobalMaxID);
  end;
end;

constructor TNumObject.Create(newID: integer =0);
begin
  inherited Create;
  FID:=GetNextGlobalID(newID);
end;

P.S. да обычно для инициализации глобальных переменных удобно использовать

unit  

interface
....
implementation

....
var
  GlobalMaxID: integer;
...

initialization
  GlobalMaxID:=0;

end;

[Ship_1]

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

constructor Create(newID: integer =0); // с использованием значения по умолчанию  для создания новых.

Да, я уже подумал об этом, правда, подумал -1 использовать по-умолчанию для создания нового...

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

так что самое время подумать о том КАК будет выполняться ввод данных из файла.

Примерно так

Спасибо большое за функции, есть о чём подумать...