請教各位高手,小弟的程式使用了一個Package, Package內有二個Unit分別為Unit_A 及Unit_B, 用 Unit_B 去uses 了Unit_A,然後在Unit_B內去使用Unit_A內的變數, compiler時正常沒有出現error, 但在程式執行到Unit_B使用到Unit_A的變數那一行時會出現Access Violation 的Error Message 請問為什麼會這樣呢?

只有当Unit_B在interface里去uses了Unit_A, 然后Unit_A在interface里去uses了Unit_B, compiler才会出错, 所以你至少有一个uses是在implementation里. Access Violation可能是由于variable没有initialize吧. Class variable, Pointer variable等要init后才能用的.

什么变数，TObject吗？TObject使用前都要创建的。 把代码贴出来供大家诊断。     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

先感謝二位的回覆.. 我要讀取是在 Unint_A 內一個宣告為string的普通變數而已 而且這個變數在 Unit_A 內也已經 initialize 了

能把读变数的那行以及前一行和后一行发出来吗? 發表人 - yyu10 於 2005/02/22 19:18:02

程式碼如下: unit Unit_A; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure FormShow(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public Msg :String; { Public declarations } end; var Form1: TForm1; implementation uses Unit_B; {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); begin Msg:='test'; end; procedure TForm1.Button1Click(Sender: TObject); begin Form2:=TForm2.Create(Application); Form2.ShowModal; end; Initialization RegisterClass(TForm1); end. ********************************************************************** unit Unit_B; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit_A; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin showmessage(Form1.Msg); end; end.

RegisterClass(TForm1); // 并没有创建 Form1 showmessage(Form1.Msg); // Form1在这里仍然nil //试试 if not Assigned(Form1) then Application.CreateForm(TForm1, Form1); ShowMessage(Form1.Msg); 發表人 - yyu10 於 2005/02/22 19:37:55

type .... Msg :String; <---請將變數換個位置宣吿 { Public declarations } end; var Form1: TForm1; Msg :String; <---請將變數換到這裡 implementation 試試看, 因為我是如此撰寫的 新手上路!!加油中...

經過測試yyu10兄及chiag兄二位所提供的方法都可以正確的執行 感謝二位的指導.. 不過由於yyu10兄先來所以分數就給yyu10兄了,只能對chiag兄說抱歉了..