type
TMyClass= class;
TMyproc= procedure(Sender: TMyClass) of object;
TMyClass = class(TComponent) // 定義類 TMyClass
private
.......
FMyproc: TMyproc; //
protected
.......
.......
procedure DoSum(aSum: TMyClass ); // 在程序中參考類名TMyClass
public
constructor Create(AOwner: TComponent); override; //
destructor Destroy; override;
end;
這里類中的程序參考了類本身：
FMyproc: TMyproc; //
procedure DoSum(aSum: TMyClass ); // 在程序中參考類名TMyClass
本人不理解，感覺跟遞回一樣，請路過的朋友幫解釋，最好有小例子
uj5u.com熱心網友回復：
面向物件。 TMyClass 這是一個類。TMyproc= procedure(Sender: TMyClass) of object; 這里定意的是一個程序型別，這個程序型別要用 TMyClass這個型別做引數。而實際運行時。引數傳進來的是物體。 和 遞回 沒關系。相單于 procedure DoSum(aSum: TMyClass ); 程序在處理資料時，會用到aSum物體里的資料。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/60231.html
標籤：語言基礎/算法/系統設計
上一篇：delphi中使用fastreport控制元件時出現class tfrxadodatabase not found錯誤
下一篇：資料暫存，擴展名為MB檔案問題