請問? 我使用了一個Main 四個Package 在我使用第二個Package2時 使用了一個Form2，在Form2的public宣告了一個變數Check : boolean; 在Form2的Button1下打開Form3(create建立)， 開法如下 try form3 := Tform3.create(application); form3.showmadul; //不知道有沒有拼錯 finally form3.free; end; 在Form3有一個按鈕button1，有一程式如下 form2.check := true; 就在這一行時發生錯誤 錯誤訊息 project test.exe raised exception class eaccessviolation with message 'access violation at address 047FAEEF in module 'package2.bpl'. write of address 00000564'. process stopped. use step or run to continue. 請問是哪裡出了問題 (form2有uses form3, form3 也有uses Form2) 是package2有問題嗎??? 我uses寫在implementation下面 再請問寫在 implementation下面的Uses和interface下的Uses有何不同 ???? 謝謝

------
----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------

引言: 請問? 我使用了一個Main 四個Package 在我使用第二個Package2時 使用了一個Form2，在Form2的public宣告了一個變數Check : boolean; 在Form2的Button1下打開Form3(create建立)， 開法如下 try form3 := Tform3.create(application); form3.showmadul; //不知道有沒有拼錯 finally form3.free; end; 在Form3有一個按鈕button1，有一程式如下 form2.check := true; 就在這一行時發生錯誤 錯誤訊息 project test.exe raised exception class eaccessviolation with message 'access violation at address 047FAEEF in module 'package2.bpl'. write of address 00000564'. process stopped. use step or run to continue. 請問是哪裡出了問題 (form2有uses form3, form3 也有uses Form2) 是package2有問題嗎??? 我uses寫在implementation下面 再請問寫在 implementation下面的Uses和interface下的Uses有何不同 ???? 謝謝 1.妳uses了form2...但妳form2裡有form2的instant嗎？ 如果只有form2的interface...那你在form3用form2.XXX則會有問題 2.好像沒差...不過如果你只有在implement時有用到某個unit...最好 將uses寫在implement.....反之在interface宣告時用到的則將uses寫在 interface段落......這算是觀念問題^^

由於內容不清楚, 錯誤的地方顯然未show出來,原不想回答,看到有些觀念實在太有問題,給你一些參考吧 1. implementation下面的Uses和interface下的Uses有何不同 Interface為宣告區, 所有在此部分uses的均會被"展開",例如你在unit1之interface uses unit2, 在unit3之interface uses unit1則unit1也uses了unit2. 兩個unit不可在interface 互相uses, 由於前所說的"展開",會造成無盡的loop, 至少其中一個uses 須移到implementation 2. 'access violation '就是記憶管理有問題, 看起來最大的可能是 form2.check時, form2並未建立 3. 下列幾點給你參考

a. 當你uses form2時, 你有的是TForm2的定義, 並無instance
b. TForm2=class(TForm)
   ...
   public
     ... 
   end; //在此end之前均為TForm2所有,若未create Instance無法使用      var
     ... //此處為global只要uses此unit就可使用
c. form2:=TForm2.create(application);
   用Tform2 類別來建立一個instance 叫做form2

form2.check := true;就在這一行時發生錯誤 先用debug執行到此行, 看form2是否nil 若是nil檢查程式, form2是否有create?, 是否已被free? 是否同時有form2之local變數與global變數