引言: 請問Try Except 及 Try Finally 的使用時機： 以及若放的位置不對，是不是會影響效能或記憶體； 而要放在哪才是最佳位置呢？ 希望各位前輩能指點一二 謝謝！ 發表人 - tomking 於 2004/02/11 08:38:41

用最簡單的說明
try
   執行動作
finally
   如果上述動作被中止或結束, 到本處執行
end    try
   執行動作
except
   如果上述動作發生錯誤, 到本處執行, 再執行 end 動作
end    try ... except 通常使用在希望控制錯誤引發的位置, 例如
try 
   資料存檔(post)
except
   showmessage('資料儲存失敗');
end;

      Ms_dir :=GetCurrentDir();  // 取得目前程式位置
  Ms_Excel1:='AA.xls';
  Ms_Excel1:=Ms_Dir   '\' Ms_Excel1 ;   // 路徑 檔名        // test aa.xls 設定檔
  try
    Ms_ExcelAP1 := CreateOleObject('Excel.Application');
    Ms_ExcelWB1 := Ms_ExcelAP1.WorkBooks.OPEN(Ms_Excel1); // 舊檔 開啟
  finally
    Ms_ExcelWB1 := Ms_ExcelAP1.WorkBooks.add;              // 新檔 重建
    Ms_ExcelAP1.cells[1,1].value := '生產資料檔路徑';
    Ms_ExcelAP1.cells[1,2].value := '工單明細檔路徑';
    Ms_ExcelWB1.SaveAS(Ms_Excel1);                        // save
  end

sorry , 沒表達清楚 
我要表達的是:aa.xls 不存在,如何新增此檔案??
       不是:把錯誤視窗關掉 

引言: 我要表達的是:aa.xls 不存在,如何新增此檔案??

procedure TForm1.Button1Click(Sender: TObject);
var
  ex, wb: Variant;
  filename: string;
begin
  try
    ex := CreateOleObject('Excel.Application');
    filename := 'c:\111.xls';
    if FileExists(filename) then
    begin
      wb := ex.WorkBooks.Open(filename);
    end
    else
    begin
      wb := ex.WorkBooks.Add;
      wb.SaveAs(filename);
    end;
    ex.Visible := true;
  except
    on E: Exception do ShowMessage('ERROR:' E.Message);
  end;
end;