我自定了一个function Decrypt(const s: string; key: word): string; 代码我省略了，因为它的运行是正常的。但我如果把这一行放在public中，就会提示出错，如果不放这一行在那上面，直接写在下面，是好运行的，关键是我要在其它FORM中想引用这个，好象就不行了。

------
我的编程起步于ktop，我将永远支持ktop

public { Public declarations } function Decrypt(const s: string; key: word): string; end; [Error] LOGOIN.PAS(36): Unsatisfied forward or external declaration: 'TLogoinForm.Decrypt'

------
我的编程起步于ktop，我将永远支持ktop

當你這樣宣告時

TLogoinForm=class(TForm)
...
public
{ Public declarations }
  function Decrypt(const s: string; key: word): string;    end;

就是宣告ㄧ個 TLogoinForm 的 "成員函式" 你就必須要實作 function TLogoinForm.Decrypt(const s: string; key: word): string; 否則就會出現 [Error] LOGOIN.PAS(36): Unsatisfied forward or external declaration: 'TLogoinForm.Decrypt' function TLogoinForm.Decrypt 和 function Decrypt 不一樣哦 建議你 將function Decrypt 另外放ㄧ個單元

unit uGlobalFun;
interface
uses ....;    function Decrypt(const s: string; key: word): string;     implementation    function Decrypt(const s: string; key: word): string; 
var
 ...
begin
 ...
end;    end.

然後在要用到 Decrypt 函數的單元中 uses ..., uGlobalFun;