Классы и подклассы

← →
Agent[007] (2004-06-07 14:41) [0]

Допустим у нас есть тип:
TMenuItemGL = record Caption : string[32]; Index : Integer; end;

И три производных класса:
TMenuDirGL = class(TMenuItemGL) Items : array of TMenuItemGL; procedure Add(mItem: TMenuItemGL); end; TMenuOptionGL = class(TMenuItemGL) Checked : Boolean; OnCheck : procedure; end; TMenuButtonGL = class(TMenuItemGL) OnClick : procedure; end;

Массив:
MainMenu: array of TMenuItemGL;

???ВОПРОС???

Как в массив MainMenu записать переменные типа, производного от TMenuItemGL ???

← →
Erik1 (2004-06-07 14:45) [1]

Вопрос: как это ты унследовался от TMenuItemGL - этоже record! А записать просто

SetLength(MainMenu, 3);
New(MainMenu[0]);

← →
KSergey © (2004-06-07 14:48) [2]

От рекорда наследуется класс?? Нука, попробую....

← →
KSergey © (2004-06-07 14:49) [3]

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

← →
Agent[007] (2004-06-07 14:52) [4]

А от чего классы наследуются???

← →
KSergey © (2004-06-07 14:57) [5]

От классов, разумеется

← →
Agent[007] (2004-06-07 15:00) [6]

Ну так что вместо рекорда class писать?

← →
KSergey © (2004-06-07 15:04) [7]

Да

> Agent[007] (07.06.04 15:00) [6]
> Ну так что вместо рекорда class писать?

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

>Как в массив MainMenu записать переменные типа, производного от TMenuItemGL ???

А в чем проблема? Никогда не удивлялись, почему TNotifyEvent объявлен с параметром типа TObject, а вызывается с параметром типа TButton или TDBGrid?

← →
Erik1 (2004-06-07 16:07) [10]

А зачем тебе вобще наследоватся?
Напиши просто
TMenuDirGL = class
....
end;

Классы и подклассы Найти похожие ветки