delphi 純虛函數的應用

編程有時候會用到，有部分功能是未來實現的，具體做什么不知道。所以需要預留空間，當這類經常會用到，每一次都要重復上下文代碼，把功能安置其中，這樣非常麻煩。有沒有一種方法，可以把位置函數功能夾雜其中。把功能作為參數傳遞，這樣每次只寫新功能即可，這時純虛函數就排上了用場。

什么情況會用到純虛函數
功能未知反正需要做些什么，具體什么不知道

怎么用

type// 此類作為形式傳遞參數用TMyUnknowClass = class// 純虛函數 本類中無需實現只聲明即可procedure DoSomthing; virtual; abstract;end;// 實際使用時再繼承它TUseClass = class(TMyUnknowClass)// 重寫你自己需要的功能procedure DoSomthing; override;end;TForm2 = class(TForm)Button1: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);private{ Private declarations }public// 把這個定義純虛函數的類傳遞進去procedure Add(A: TMyUnknowClass);{ Public declarations }end;implementation{$R *.dfm}procedure TForm2.Add(A: TMyUnknowClass); begin// 預留的功能 功能未知A.DoSomthing; end;procedure TForm2.Button1Click(Sender: TObject); varm: TUseClass; begin// 使用時定義并繼承有純虛函數的類 完成實際功能m := TUseClass.Create;Add(m);m.DisposeOf; end;{ TUseClass }procedure TUseClass.DoSomthing; beginShowMessage('TUseClass'); end;// 這樣就實現了預留未知功能的任務

總結

以上是生活随笔為你收集整理的delphi 纯虚函数的应用的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。