フォームなしのユニットで、private宣言するには？

解決

ヨッシー 2002-10-17 00:14:29 No: 1720

フォーム無しのユニットで、private宣言をして、他のユニットから見れなくしたいのですが、implementationの前で
private
function GetNm : String;

とprivate関数を定義したら、'不正なコンパイラ命令private'というエラーが出てしまいました。
フォームが無いと、private宣言はできないのでしょうか？
何か良い方法がありましたら、教えてください。

にしの 2002-10-17 02:29:06 No: 1721

implementationの後に定義してやればプライベートな関数にできます。

None 2002-10-17 09:38:25 No: 1722

function GetNm : String;
をimplementationの後に定義することと、
implementationの前に関数を「定義しない」ければ良いかと思います。

↓こんな感じ。
...
function GetNm : String; <-ここに宣言したらダメ。

implementation
{$R hoge.res}

function GetNm : String;
begin
hogehoge();
end;
...

ヨッシー 2002-10-30 20:10:02 No: 1723

なるほど、ありがとうございました。