Delphi中怎样声明一个类?怎样实现多态?如果要在类库的一个类中添加一个方法又怎么做? 然后怎样封装它?是不是封装以后维护就非常简单? 可

Question

unit class1
interface .....
type
  TMyClass=Class
  private  public
   constructor create(owner :TComponent);overload;//构造函数
   destructor Destory;overload;//析构
  protected  publishedend;

Answer 1

TXXXObject = class
    constructor Create;
    procedure Free;
    function FieldAddress(const Name: ShortString): Pointer;
    function FieldAddress(const Name: ShortString;Length : integer): Pointer;overload;   //多态
    function GetInterface(const IID: TGUID; out Obj): Boolean;
    class function GetInterfaceTable: PInterfaceTable;
    destructor Destroy; virtual;
  end;

Answer 2

Brand1(孤独的人)大侠:  先谢了!
 我还不明白 function  GetInterface(const  IID:  TGUID;  out  Obj):  Boolean; 是什么意思?