當我做ClientDataSet1.Open 時我希望能做控制例如 Try ClientDataSet1.open Except showmessage('開啟錯誤'); end; 但是我開啟錯誤時有很多不同的選項,請問我要如改寫 (此處使用Delphi提供的ReconcileError Dialog是無效的, 因為其錯誤和Database無關) try ClientDataSet1.Open; except on E: (此處要填什麼) do begin if (若是Missing DataProvider 要怎麼寫) then begin showmessage('找不到DataSetProvider') ; abort; end else if (其他錯誤要如何寫) then ................ end; end;

引言:

當我做ClientDataSet1.Open 時我希望能做控制例如
  Try
    ClientDataSet1.open
  Except
    showmessage('開啟錯誤');
  end;
但是我開啟錯誤時有很多不同的選項,請問我要如改寫
(此處使用Delphi提供的ReconcileError Dialog是無效的,
 因為其錯誤和Database無關)
  
  try
    ClientDataSet1.Open;
  except
    on E: (此處要填什麼) do
    begin
      if (若是Missing DataProvider 要怎麼寫) then
      begin
        showmessage('找不到DataSetProvider') ;
        abort;
      end
      else if (其他錯誤要如何寫) then
      ................
    end;
  end;

如果您只是想將錯誤訊息中文化, 建議您找出錯誤訊息的Unit, 然後將其中文化, 再加到您的Project試試. <iFrame src="http://www.coss.com.tw/jieshu/sign.htm" width=400 height=105 scolling="NO" border="0"></iFrame> 震江系統(股)公司: http://www.coss.com.tw/ 捷舒軟體設計坊: http://www.coss.com.tw/jieshu/

我並非是要將錯誤中文化,而是在ClientDataSet Open之後若有錯誤,我要依據它的錯誤,而作出不同程度的處理,例如ClientDataSet本身設定的錯誤作出一種處理,找不到應用程式伺服器作另一種處理 也就是說,我要如何得知ClientDataSet的原始錯誤資料 (例如Missing DataSetProvider,ClientDataSet要如何得知),像BDE都有所謂的錯誤碼,ClientDataSet有沒有呢?

我的寫法最後變成這個樣子,雖然可用,但是自己知道寫的非常不好 procedure CdsOpen(MyClientDataSet: TClientDataSet); begin try MyClientDataSet.Open; except on E: exception do if E.Message=MyClientDataSet.GetNamePath ': Missing data provider or data packet' then //此處有沒有更好的寫法 begin showmessage('連結provider元件錯誤'); abort; end else begin try (do something)........... end; end; end;