Наследование стандартных классов.

← →
Toster © (2002-08-24 20:37) [0]

В результате исполнении этого кода возникает Access Violation в момент вызова Create. Tree существует. Это происходит при наследовании и других стандартных классов, например TStrings, которому в констуктор вообще ничего не передается.

....
type
MyClass = class(TTreeNode)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
MyNode: MyClass;
....

procedure TForm1.FormCreate(Sender: TObject);
begin
MyNode.Create(Tree.Items);
end;

← →
Mikhail © (2002-08-24 20:46) [1]

MyNode := MyClass.Create(...)

Большое Спасибо!

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