【结贴】运行这段加载树的代码正常，但是退出IE就会报错

webcrow

procedure TFRMYGDA.AddTree(Node:TTreeNode;FPARENTGUID:string);
var
  sName,sGUID:string;
  tmpNode:TTreeNode;
  qry: TQuery;
begin
  qry:=TQuery.Create(nil);
  qry.ConnectionString:='DATABASEURL=Biz:SYSTEMSYSTEM.DATABASE';
  qry.CommandText:='select * from TDEPT where FPARENTGUID=:p1';
  qry.Params.ParamByName('p1').AsString:=FPARENTGUID;
  qry.Open;

  if qry.RecordCount>0 then
  begin
    qry.First;
    while not qry.Eof do
    begin
      sGUID:=qry.FieldByName('FGUID').AsString;
      sName:=qry.FieldByName('FDISPLAYNAME').AsString;

      tmpNode:=TreeView1.Items.AddChild(Node,sName);
      AddTree(tmpNode,sGUID);
      qry.Next;
    end;
    qry.Free;
  end;
end;

shangxy

这样呢？
procedure TFRMYGDA.AddTree(Node:TTreeNode;FPARENTGUID:string);
var
  sName,sGUID:string;
  tmpNode:TTreeNode;
  qry: TQuery;
begin
  qry:=TQuery.Create(nil);
  try
  qry.ConnectionString:='DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
  qry.CommandText:='select * from TDEPT where FPARENTGUID=1';
  qry.Params.ParamByName('p1').AsString:=FPARENTGUID;
  qry.Open;

  if qry.RecordCount>0 then
  begin
    qry.First;
    while not qry.Eof do
    begin
      sGUID:=qry.FieldByName('FGUID').AsString;
      sName:=qry.FieldByName('FDISPLAYNAME').AsString;

      tmpNode:=TreeView1.Items.AddChild(Node,sName);
      AddTree(tmpNode,sGUID);
      qry.Next;
    end;

  end;
  finally
     qry.Free;
  end;
end;

webcrow

好了
谢谢