难题

Question

编译通过，运行出错：access violation at address....
//MainWindow.pas
procedure TMainWindow.FormShow(Sender: TObject);
begin
 LoginD := TLoginD.Create(self);//这里传入
 LoginD.ShowModal();
end;
//LoginD.pas
procedure TLoginD.FormCreate(Sender: TCustomForm);
begin
 mainW :=(Sender as TMainWindow);//这里获得传入
end;procedure TLoginD.OKClick(Sender: TObject);
begin
  mainW.user :=TLibrarian.findLibrarian(id,passWord);//TLibrarian的类方法,??运行时此处出现错误提示
end;

Answer 1

内存读写错误，调用了在内存中未创建的对象。