try except 要如何運用呢 可以攔捷一我在程式編寫上的錯誤 而不是system定義的錯誤嗎 try ok.text='' except showmessage('忘了輸入字串') end; 為什麼不能執行呢

Try..Except..End是處理數學以及軟硬體運算時發生錯誤的敘述式，但以本例而言，你是將一個空字串指定給Ok.text，並沒有錯誤。 因此要測試是不是空字串要寫成： < class="code"> if Lenght(Ok.text) = 0 then begin ShowMessage('忘了輸入字串'); exit; end; ------------------- 學，然後知不足。

那比如說我要open 一個file 可是我的路徑是錯誤的找不到正確的檔案 那會引發efopenerror 那我又該如何做呢 try filename:=opendialog.filename; except showmessage('錯誤的路徑'); end;

引言: 那比如說我要open 一個file 可是我的路徑是錯誤的找不到正確的檔案 那會引發efopenerror 那我又該如何做呢 try filename:=opendialog.filename; //OpneDialog只是純粹傳回檔名，不會發生開檔錯誤 except showmessage('錯誤的路徑'); end;

要開啟檔案前，最好先用庫存函數FileExists if FileExists(FileName) then ...... ------------------- 學，然後知不足。

插花：

try 
  ……do something…… //如果这里执行时，不生错误，则下面的except也就不会执行了。
except
  ……只有当在异常被触发而你想执行一些任务时才使用……
end;
参考实例
procedure TForm1.Button3Click(Sender: TObject);
var
  i:integer;
begin
  try
    i:=strtoint(Edit1.text); //编译成.exe文件后，当Edit1.text为非数字型时就会发生异常,也即会触发except下面的语句    
    Edit2.Text:=IntToStr(i);
  except
    showmessage('非数字字符');
  end;
end;

或参考：http://delphi.ktop.com.tw/topic.php?topic_id=53541 里面有很详细的介绍try except end 和try finally end的用法和区别！ ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

引言: 那比如說我要open 一個file 可是我的路徑是錯誤的找不到正確的檔案 那會引發efopenerror 那我又該如何做呢

try 
  filename:=opendialog.filename;
  ...;
except
  showmessage('錯誤的路徑');
end;

您好﹗ 這樣寫并沒有錯﹐只是因為在指定OpenDialog的FileName屬性給filename變數后﹐并沒有進行下一步會引發錯誤的動作（上述...處）﹐比如說用取得的這個filename變數做個Copy的動作﹐這樣的話﹐在Copy檔案時如果該filename變數所指的檔案不存在﹐即會触發Except中的ShowMessage部分﹒ ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

雖然你問的問題很怪, 但是應該可以這樣用用, 可以集中處理錯誤    

type
  EMyError = class(Exception);      TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CheckData;
  end;      procedure HandleMyError(sErrorID: String);    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    CheckData;
  except
    on E: EMyError do
      HandleMyError(E.Message);
  end;
end;    procedure HandleMyError(sErrorID: String);
var
  iErrorId: Integer;
  SMsg: String;
begin
  iErrorId := StrToIntDef(sErrorID,-1);
  case iErrorId of
    1: SMsg := '忘了輸入字串';
    2: SMsg := '字串長度不足';
    else
      SMsg := '未定義的錯誤';
  end;
  ShowMessage(SMsg);
end;    procedure TForm1.CheckData;
var
  iLen: Integer;
begin
  iLen := Length(Edit1.Text);
  if (iLen=0) then
    raise EMyError.create('1')
  else if (iLen<5) then
    raise EMyError.create('2')
  else if (iLen=5) then
    raise EMyError.create('abc');
end;