各位前輩好～ 小弟目前在學習寫MDI的程式，想將之前寫過的程式包進來這支新程式裡 可是發現一個問題，而這個問題在原本的程式程式是沒問題的！ 就是，當我動態產生FORM之後會發現原本我的自定程序參數無法傳遞.... 例如： 我有個FORM叫做FORM1而自定的程序是這樣的 if form1.label1.text <>'' then ^^^^^^^^^^^^^ 原本執行應該是無誤的(在原先的程式裡，FORM1為主FORM)，但是動態產生之後，每次執行到這個程序的時候便會發生錯誤！ 請問這是什麼原因造成的呢？ 並，該怎麼解決才能使FOMR1的元件參數傳遞到程序中呢？

對了，錯誤訊息是 Access violation at address 0050CC46 in module 'project1.txt'.Read of address 00000318 請大家多多幫忙，謝謝！

應是你執行這句是還沒 create Form1 你可在 Project->Options->Form 裡設定成 auto create 或在執行前手動 Create

版主您好 我的問題就是，我已經create Form1了... 並且那個程序是在form1中執行的～

if form1.label1.text <>'' then ========================== label1改為Caption 看看 if form1.label1.Caption <>'' then

引言: if form1.label1.text <>'' then ========================== label1改為Caption 看看 if form1.label1.Caption <>'' then

啊...筆誤... 我是label1.caption沒錯.... 可是這不能解決我的問題耶.... 不是語法錯誤....而是原本的程式執行無誤... 改成MDI動態產生之後就發生錯誤...

假如說label1.Caption是在form1中執行的話 你form1 create時候是用什麼方式 或許不要使用 form1.label1.caption,改成lable1.caption看看

你可以參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=22374 可能跟我之前的程式有點類似。 明明是用該Form，但還是會Error。 你可以試試 if TForm1(Form1).Label1.Caption = '' then 一般應該是直接下 if Label1.caption = '' then 應該是不用加Form1 或試試 if self.Label1.caption = '' then 這個三方法式式看。 ---------------- 快滿一年程設師， 日日工作寫程式， 每買樂透眼框溼， 望能早成系分師。 ----------------

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

補充一下以上兩位所說的 : 簡單來說，就是你的TForm1 創建起來時不叫 Form1。 所以 Form1 這個變數在你呼叫 Form1.label1.caption 時確實是沒指向任何 TForm1 的物件所以 Access Violation. 解決方法上面兩位已說得很清楚了。

謝謝各位高手，小弟已經自行將問題解決了... 原來是我自訂的程序，沒有宣告... 所以在程序內必須使用諸如： form1.label1 將程序加以宣告後，並將 form1.label1 改成 label1 就可以了，謝謝大家！