盒子论坛 v2.1

将数据输出到excel中再选择保存，并且将数据保存后没有问题，但是如果选择不保存就会出现当再次输入数据到excel中，就不能显示数据,但是却提示数据已经更改,说明数据输入到excel中了，可是为什么看不到呢，是不是资源没有释放？那我又怎样才能释放资源呢？请教各位！
try
    Form.ExcelApplication1.Connect;
  except
    MessageDlg('没有安装Excel',mtError,[mbOK],0);
    exit;
  end;
    Form.ExcelApplication1.Visible[0] := true;
  if Trim(FileName) = ' then
  begin
    Form.ExcelApplication1.Workbooks.Add(EmptyParam,0);
    try
      Form.ExcelWorkbook1.ConnectTo(Form.ExcelApplication1.Workbooks[1]);
      Form.ExcelWorksheet1.ConnectTo(Form.ExcelWorkbook1.Worksheets[1] as _Worksheet);
      for i:=0 to strgrid.RowCount-1 do
      begin
        for j:=0 to strgrid.ColCount-1 do
        begin
          Form.ExcelWorksheet1.Cells.Item[i+1,j+1] := strgrid.Cells[j,i];
        end;
      end;

      try
      Form.ExcelWorkbook1.Close  (eSaveChanges1,eFileName1,eRouteWorkbook1);
      except
        on E:exception do
        exit;
      end;
   Form.ExcelWorksheet1.Disconnect;
   Form.ExcelWorkbook1.Disconnect;
   Form.ExcelApplication1.Disconnect;
   end;

----------------------------------------------
-

作者：

yjcheng (sunny)	★☆☆☆☆	-
	盒子活跃会员

2003/6/2 9:46:20

1楼：

加上formDestroy
xxx:variant;

procedure TForm1.FormDestroy(sender : Tobject)
begin
  if not VarIsEmpty(xxx) then
  begin
    xxx.displayalerts:=false;
    xxx.quit;
  end;
end;
----------------------------------------------
-

信息

登陆以后才能回复