>>45
それで、
#function "ファイル名" 関数名(引数):帰り値;
って構文を考えたんだ。


ファイルに
function <NAME>(arg1:<ARG1>):Integer;
var wk:<ARG1>
begin
#if ARG1=Integer
　・・略・・
#else
　・・略・・
#endif
end;

みたいな感じで準備しておくと
#function "ファイル名" hoge(var name:Integer):Integer;
このファイルがインクルードして置換されてソースに出力されると

まあマクロアセンブラのマクロのノリで