procedure ShowName;overload; //如果Class是从TObject继承的,又想实现接口的话,必须实现下面这三个function, //如果想偷懒的话,把UPeople改成从TInterfacedObject
而使用面向接口方式将会这样来撰写 定义接口 IConfig = interface function GetConfig:string; end; ini实现 TIniConfig = class(TInterfacedObject end; 调用者的代码将不再是: ReadConfig; 而是 (TIniConfig.Create as IConifg).GetConfig; 当实现了 TXmlConfig = class(TInterfacedObject