理解 Delphi 的类(十一) - 深入类中的方法[8] - 抽象方法与抽象类

//抽象方法类似与接口; 在没有接口的年代 Delphi 是用抽象方法来模拟接口的; 我想它最终会被接口替代. {下面就定义了两个抽象方法} TMyClass = class(TObject) procedure Proc1; virtual; abstract; {抽象方法首先应该是一个虚方法或动态方法} function Fun: string; dynamic; abstract; {抽象方法也叫纯虚方法} end; { 抽象方法在本类中只有定义、没有实现; 抽象方法应该在子类中实现. 如果一个类包含了抽象方法, 那么这个类也就成了抽象类; 抽象类只能通过其子类来实例化, 自己不能生成对象. 最常用的一个抽象类应该是 TStrings 了, 举例: } var List: TStrings; i: Integer; begin List := TStringList.Create; for i := 0 to 99 do List.Add(IntToStr(i)); Memo1.Lines := List; List.Free; end; { TStrings 类中包含了抽象方法, 但这些抽象方法在其子类 TStringList 中都得到了实现; 因此, 我们虽然定义的是 TStrings 类的变量, 却要通过 TStringList 来实现. 这里就有个问题, 我们直接使用 TStringList 不行吗? 为什么还要绕个弯? 我觉得是: 这样才更符合"多态"的思想吧; 仅就本例而言 Memo1.Lines 本身就是 TStrings 类型的, 这样可以避免类型冲突. 举例说明: } //这是个错误的例子 var List: TStringList; {如果定义为 List: TStrings 可消除错误} begin List := TStringList.Create; List := Memo1.Lines; {这里会出问题} List.Free; end; //抽象方法类似与接口; 在没有接口的年代 Delphi 是用抽象方法来模拟接口的; 我想它最