delphi實現一個類繼承抽象類別並實現介面

 問題描述：TSaleOutDao即要繼承抽象類別TABizDao又要實現介面TIBizDao.

解決辦法：先用抽象類別繼承TIBizDao,然後再把需要實現的介面方法聲明為抽象方法。然後再用

TSaleOutDao繼承TABizDao.

1. //IBizDao.pas單元檔案
2. unit IBizDao;
4. interface
6. type
7.   TIBizDao=interface
8.     function aaa:string;
9.   end;
11. implementation
13. end.

 

1. //ABizDao.pas單元檔案
2. unit ABizDao;
4. interface
6. uses 
7.   IBizDao;//引用父類單元
9. type
10.   {特別注意，同一個單元內的兩個類會被任務是友元類，即如果把SaleOutDao也寫在該單元中，
12. SaleOutDao可以直接存取ABizDao中的私人變數TableName並賦值}
13.   TABizDao=class(TInterfacedObject,TIBizDao)
14.   private
15.     TableName:string;
16.   protected
17.     
18.   public
19.     constructor create;
20.     destructor destroy;override;
21.     procedure SetTableName;virtual;abstract;
22.     procedure SetTableNameEx(FName:string);
23.     function GetTableNameEx:string;
24. {//雖然是繼承自介面，但不實現介面的方法；aaa聲明為抽象方法，在子類實現}
25.     function aaa: String;virtual;abstract;
26.   end;
27. implementation
29. { ABizDao }
33. constructor TABizDao.create;
34. begin
35.   Self.SetTableName;
36. end;
38. destructor TABizDao.destroy;
39. begin
41.   inherited;
42. end;
44. function TABizDao.GetTableNameEx: string;
45. begin
46.   Result:=TableName;
47. end;
49. procedure TABizDao.SetTableNameEx(FName: string);
50. begin
51.   Self.TableName:=FName;
52. end;
54. end.

 

1. //SaleOutDao.pas單元檔案
3. unit SaleOutDao;
5. interface
7. uses
8.   ABizDao,IBizDao;//引用父類單元
10. type
12.   TSaleOutDao=class(TABizDao)
13.   private
15.   protected
16.     
17.   public
18.     constructor create;
19.     destructor destroy;override;
20.     procedure SetTableName;override;
21.     function aaa: String;override;
22.   end;
25. implementation
27. {實現介面的方法}
28. function TSaleOutDao.aaa: String;
29. begin
30.   Result:='aaa';
31. end;
33. constructor TSaleOutDao.create;
34. begin
35.   inherited;{加上關鍵字inherited會調用父類建構函式，如果不加的話不會執行TABizDao.create}
37. end;
39. destructor TSaleOutDao.destroy;
40. begin
42.   inherited;
43. end;
44. {實現抽象類別的抽象方法}
45. procedure TSaleOutDao.SetTableName;
46. begin
47.   inherited;
48.   SetTableNameEx('UserInfo');
49. end;
52. end.