Question

unit2 引用unit1的问题 delphi

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.Show;
end;

end.

unit2引用unit1的问题 点击button1是 出现了
access violation at address xxxxxx in module 的问题 求解 难道是我的unit2引用unit的错误？？

form1 为空
form2只有一个Button

Answer 1

1、首先确认Unit1中有没有use Unit2，有的话要先删掉，因为form之间不能重复调用；
2、把form2的代码修改成：
procedure TForm2.Button1Click(Sender: TObject);
var
aForm1 : TForm1;
begin
try
aForm1 := TForm1.Create(Self);
aForm1.ShowModal;
finally
aForm1.free;
end;
end;

Answer 2

在 form1.Show; 之前，看看form1是否为nil，如果是，先创建

if form1 = nil then
form1 := TForm1.Create(Self);
form1.Show;

Answer 3

Form1没有创建 你就用?