[Delphi]入れ子(?)になったプロシージャ

質問

こんにちは、honiyonです。

　あるプロシージャだけが呼び出す関数がある為、次のように定義しました。

　procedure Subfunc;
　　function funcA:integer;
　　begin
　　　～
　　　function funcB;
　　　～
　　end;

　　function funcB:integer;
　　begin
　　　～
　　　function funcA;
　　　～
　　end;

　begin
　　～
　end;

　funcAとfuncBは協調して動作するのですが、当然funcAからfuncBは見えていませんので、「funcBが見つからない」とエラーになります。
　しかし、この場合どのようにfuncBの存在を定義すれば良いのかわかりません。
　あまりこのような形で作成するケースが少ないようで、資料がなく困っています(^^;;

　宜しくお願いします(..

回答No.1

BLUEPIXY · ベストアンサー

Delphi言語ガイド６－６によると（実際に試したわけではありません）
　procedure Subfunc;
　　function funcB:integer; forward;

　　function funcA:integer;
　　begin
　　　～
　　　function funcB;
　　　～
　　end;

　　function funcB;
　　begin
　　　～
　　　function funcA;
　　　～
　　end;

　begin
　　～
　end;

のように書けと書いてあります。

お礼

こんにちは、honiyonです。

　なんと、forward宣言なんていうものがあったのですね。
　まさに今回のようなケースの為にあるものですね。

　大変参考になりました。
　有難う御座いました。