Объект не создает

Question

Я создаю невизуальный компонент. Кратко Код:

// Element of some list item 
TMyItem = class 
private 
    Id: integer; 
    Caption: string; 
public 
    constructor Create(const aId: integer; const aCaption: string); 
end; 

// List of items 
TMyItemList = class(TObjectList<TMyItem>) 
public 
    constructor Create; 
end; 

// The component 
TMyComp = class(TComponent) 
private 
    FMyList: TMyItemList; 
public 
    constructor Create; 

implementation 

constructor TMyComp.Create(AOwner: TComponent); 
begin 
    inherited Create(AOwner); 
    FMyList:= TMyItemList.Create; 
end; 

Вопрос: почему «FMyList» не существует, когда «MyComp» создан? Assigned (FMyList) = false ...

Answer 1

Это не ваш фактический код. Ваш фактический код компилируется. Но мы можем догадаться, в чем проблема. Здесь:

type 
    TMyComp = class(TComponent) 
    private 
    FMyList: TMyItemList; 
    public 
    constructor Create; 
    end; 

Конструктор TComponent объявлен так:

constructor Create(AOwner: TComponent); virtual; 

Это виртуальный конструктор, так как структура потокового Delphi опирается на метаклассы для создания объектов. Если вы хотите, чтобы фреймворк вызывал ваш конструктор, вам нужно переопределить этот виртуальный конструктор.

constructor Create(AOwner: TComponent); override; 

Я достаточно уверен в этом предположении, но нам не нужно угадывать. В следующий раз отправьте реальный код, Minimal, Complete, and Verifiable Example.