| ■無料ホームページスペース■ |
|
他のファイルの関数を利用する方法の一つとして、$I 指令 があります。
下記の例では、IncludeTest.eppから、Tags.epuにある関数を利用しています。 unit Tags.epu function GetStartTag( S: String ): String; begin Result:= '<' +S +'>'; end; function GetEndTag( S: String ): String; begin Result:= '</' +S +'>'; end; IncludeTest.epp
Program IncludeTest;
{$I Tags.epu}
var
S, S1, S2: String;
Begin
S:= 'Abcdefg';
S1:= GetStartTag( S );
S2:= GetEndTag( S );
・・・
End.
|
|
■お
得情報盛りだくさん ■高性能レンタルサーバ |