クラスや関数の前方参照、forward宣言方法
|
45 |
ClassFunctionForward |
動作確認 |
Delphi2007 |
更新日 |
2008/01/28(月) |
クラスの前方参照方法は次のようになります
────────────────────
type
TMyClassChild = class;
TMyForm = class(TForm)
private
FMyClassChild: TMyClassChild;
public
end;
TMyClassChild = class(TObject)
private
public
end;
────────────────────
このようにしてください。
関数の前方参照方法は次のようになります
関数の場合、inplementation部で前方参照する時は
forward句が必要になります。
────────────────────
implementation
function MyFunc: Integer; forward;
procedure MyProc;
begin
MyFunc;
end;
function MyFunc: Integer;
begin
…省略…
end;
────────────────────
宣言をinterface部で行う場合は
forward句は必要有りません。
interface
function MyFunc: Integer;
implementation
procedure MyProc;
begin
MyFunc;
end;
function MyFunc: Integer;
begin
…省略…
end;
────────────────────
|