type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  function ABC():integer ;      implementation

function TForm1.ABC():integer ;
begin
     ABC := 100;
end;

引言: 你的function 宣告放錯地方了 應該放在implementation之前的var 裡 這樣子才是屬於這個Form 的全域可視範圍 (以 function ABC 為例)

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  function ABC():integer ;      implementation

如果是要放在Private /Public 則 在function 實作部份加上TForm. 例：

function TForm1.ABC():integer ;
begin
     ABC := 100;
end;

噓~~~~~~沉思中… 發表人 - ddy 於 2002/11/07 16:17:23

var
  Form1: TForm1;    implementation
uses unit2,unit3;  //在implementation 之後
{$R *.dfm}

引言:

var
  Form1: TForm1;    implementation
uses unit2,unit3;  //在implementation 之後
{$R *.dfm}

如上例，需於各unit 內uses其它unit 就可以引用其它unit內公開的函數了 噓~~~~~~沉思中… 發表人 - ddy 於 2002/11/08 00:46:03

我在form2中編寫的函數，在form1中已“uses Unit2;”，但在form1中還無法訪問那個form2中編寫的函數。 總提示：[Error] Unit1.pas(41): Undeclared identifier: 'doublethevalue' 此doublethevalue為一個form1中的函數，form2要用這個函數。 在種情況下還有沒有其他的要注意的呀！ 我急切的希望能訪問些datamodule和form2,form3中的函數。 請教！ 多謝！ < >< > 胡 發表人 -

引言: 我在form2中編寫的函數，在form1中已“uses Unit2;”，但在form1中還無法訪問那個form2中編寫的函數。 總提示：[Error] Unit1.pas(41): Undeclared identifier: 'doublethevalue' 此doublethevalue為一個form1中的函數，form2要用這個函數。 在種情況下還有沒有其他的要注意的呀！

var  
    Form1: TForm1;
implementation
uses unit2,unit3;  
------------------
var  
    Form2: TForm2;
implementation
uses unit1,unit3;  
------------------
var  
    Form3: TForm3;
implementation
uses unit1,unit2;