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

解決

ヨッシー  2002-10-16 15:14:29  No: 1720  IP: 192.*.*.*

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

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

編集 削除
にしの  2002-10-16 17:29:06  No: 1721  IP: 192.*.*.*

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

編集 削除
None  2002-10-17 00:38:25  No: 1722  IP: 192.*.*.*

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


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

implementation
{$R hoge.res}

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

編集 削除
ヨッシー  2002-10-30 11:10:02  No: 1723  IP: 192.*.*.*

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

編集 削除