【搞定】关闭登录窗体时报错**

buckking

通过登录窗体验证之后，进入主窗体，然后想在这个时候关掉登录窗体，于是写了
procedure TDLCT.btnLoginClick(Sender: TObject);
var
LegalUser : integer;
lDetailForm : TMFZBYRZGL;
begin
  LegalUser:=0;
  with dsbZBYBSJJ do
  begin
    DataSet.Open;
    DataSet.First;
    while not DataSet.Eof do
    begin
      if (edtUserName.Text=DataSet.FieldByName('ZBYMC').AsString) and
         (edtPassWord.Text=DataSet.FieldByName('ZBYMM').AsString) then
      begin
        jsDialogs.ShowMsg('合法用户','提示信息');
        self.Free;
        LegalUser:=1;
        lDetailForm := TMFZBYRZGL.Create(Context);
        try
          lDetailForm.ShowModal;
        finally
          lDetailForm.Free;
        end;
        break;
      end;
      DataSet.Next;
    end;
  end;

  //if LegalUser=1 then
   // self.Free;

  if LegalUser=0 then
    jsDialogs.ShowWarning('用户名或者密码错误','错误信息');
end;

运行的时候正常，但是关闭主窗体的时候会报图片的那个错误

alang

这样的错误通常是因为释放了对象但是有访问到了这个对象了
建议楼主好好看看自己写的代码，在退出时候做了什么

alang

或者打开Studio，调试运行看看错误停在哪句上

buckking

发现这个是在程序全部运行后自动跳出来的，现在又报了下面这个错误：

alang

这个错误是因为定义了一个虚基类，这个基类是不可以创建实例的，如果创建这个基类的实例，调用其中没有实现的虚方法，就会出现这个错误

最典型的例子就是TStrings，一般的用法都是
var
  ss: TStrings
begin
  ss := TStringList.Create;

虽然定义的是TStrings类，但是创建实例时候要创建TStringList才可以，否组后面的代码中肯定会报错

buckking

lDetailForm := TMFZBYRZGL.Create(Context); 这句有我写进去阿，其他地方也没有代码了，这个问题是我写的有问题吗

buckking

有的时候会报这个错误

alang

指针错通常是因为释放了对象但是又访问到了这个对象了

lisb

楼主，这个还有问题吗？

lisb

由于长时间没有回复，先结贴了，有问题请开新帖。