四.抽象类和它的实例 Delphi中有一个类称为是抽象类,你不能天真的直接为它创建一个实例,如 var StrLst: TString; begin StrLst:= TString.Create; StrLst.Add('I love China'); StrLst.Free; end; 这是不对的,因为TString是一个抽象类. 那么怎么为这样的抽象类构造实例呢?答案就是借助它的非抽象子类.我们知道TString有一个TStringList的非抽象子类.所以可以这样操作 var StrLs…
Delphi Class of 类引用也就是类的类型,也可说是指向类的指针 Type TControlCls = Class of TControl;function CreateComponent(ControlCls: TControlCls): TControl;begin result:=ControlCls.Create(Form1); ...end; function CreateComponent(ControlCls: TControl): TControl;begin resu…