Ошибка при работе с интерфейсами

[alexprey]

Пытаюсь разобраться с интерфейсами. У меня есть библиотека в которой храниться реализация интерфейса. Выглядит это примерно так:

library testDLL;

uses SysUtils;

type
  IObject = interface
    function GetIndex: cardinal;
    procedure SetProp(_type: byte; value: cardinal);
  end;
  IObjectManager = interface
    procedure CreateObject(out oOut: IObject);
    procedure Processing;
  end;
  IControler = interface
    functoin IObjManager: IObjectManager;
  end;
  TObject = class(TInterfacedObject,IObject)
    public
     function GetIndex: cardinal;
     procedure SetProp(_type: byte; value: cardinal);
    private
     _id: cardinal;
  end;
  TObjectManage = class(TInterfacedObject,IObjectManager)
   public
    procedure CreateObject(out oOut: IObject);
   private
     FObjectList: array [0..15] of TObject;
     FObjectCount: integer;
  end;
  TController = class(TInterfaceObject,IController)
   function IObjManager: IObjectManager;
   private
    FObjectManager: TObjectManager; 
   published
    constructor Create;
  end;

...  

procedure TObjectManager.CreateObject(out oOut: IObject);
begin
 FObjectList[FObjectCount] := TObject.Create;
 oOut := FObjectList[FObjectCount];
 inc(FObjectCount);
end;

procedure TObjectManager.Processing;
 var i: integer;
begin
 for i:= 0 to FObjectCount - 1 do
  if FObjectList[i] <> nil then
  begin
  ....
  end;
end;

function TController.IObjManager: IObjectManager;
begin
 Result := FObjectManager;
end;

constructor TController.Create;
begin
 inherited Create;
 FObjectManager := TObjectManager.Create;
end;

var MainController: TController;

procedure Init(out controll: IController);
begin
 MainController := TController.Create;
 controll := MainController;
end;

exports
 Init;

begin
end.

В самой программе я статично вызываю процедуру Init. Все нормально создается и возвращается. Дальше я создаю объект в программе

 var obj: IObject;
....
 controll.IObjManager.CreateObject(obj)
 obj.SetProp(0,5533)
....

Тут все нормально, в список добавляется. Затем я запускаю таймер и там ввызываю процессинг

 controll.IObjManager.Processing;

И вут тут то я получаю ошибку AV. Пишет что не может прочитать в адресс $00000000. Методом тыка выяснил, что это на этой строчке

 if FObjectList[i] <> nil then

Тоесть при попытке обращения с списку, хотя до этого обращение к списку шло нормально. Жду помощи в решении это вопроса.
ПС. Менеджер памяти не помог

[evg_m]

1. проверить (посмотреть) значения FObjectCount
при создании объекта; при других операциях.
2. Project Options добавить контроль диапазонов.

[alexprey]

1. FObjectCount как и должно равно 1
2. Сейчас проверим...
... Не помогло. Также вызывается ошибка. Когда навожу на FObjectList во время проссинга то пишет Inaccessiable value, хотя остальные данные (не массив) возвращаются нормально

[veniside]

потеряли одну строчечку:

FObjectManager := TObjectManager.Create();

догадаетесь, где она должна быть?

[alexprey]

Она есть. Просто я не написал её в примере.

[evg_m]

посмотри эту тему
у тебя та же ошибка. (неправильное хранение интерфейсных объектов).
FObjectList: array [0..15] of TObject;

[GunSmoker]

Причину уже указал evg_m.

Работаете с интерфейсами - ну так и работайте с интерфейсами. Смешение механизмов управления временем жизни ни к чему хорошему не приведёт.

Аналогичная проблема с MainController.

По остальному:
1. Имя TObject - крайне плохая идея. Такой тип уже есть.
2. Интерфейсы лучше выносить в отдельный модуль.
3. IObjManager - плохое имя. Почему не GetObjManager или GetManager?
4. array [0..15] - почему статический?

[alexprey]

Тоесть получается нужно хранить объекты в качестве интерфейса??? А если мне его нужно будет получить как класс внутри библиотеки?

[evg_m]

А если мне его нужно будет получить как класс внутри библиотеки?

Работаете с интерфейсами - ну так и работайте с интерфейсами. Смешение механизмов управления временем жизни ни к чему хорошему не приведёт.

Внутри одного объекта все что угодно, к другим объектам, в том числе и этого класса (типа) только интерфейсы.

[GunSmoker]

А если мне его нужно будет получить как класс внутри библиотеки?

Реализуйте у объекта

type
  IGetMySelf = interface
  ['GUID']
    function GetSelf: TMyObject;
  end;

Библиотека может запросить IGetMySelf у IObject и через GetSelf получить объект.

Ещё лучше - пусть объект реализует

type
  IInternalObject = interface
  ['GUID']
    function GetThat: Something;
    procedure DoThis;
    ...
  end;