請教各位前輩如下問題： procedure deltail.dbgride1colenter(sender:tobject) begin if dsMaster.state = dsInser then begin showmessage('edit'); // abort; // end; end; 其中 showmessage('edit') abort 是否可包成一個 function or procedure ?? 謝謝！！

Why not? From the help: procedure Abort; C syntax: extern PACKAGE void __fastcall Abort(void); Description Use Abort to escape from an execution path without reporting an error. Abort raises a special "silent exception" (EAbort), which operates like any other exception, but does not display an error message to the end user. Abort redirects execution to the end of the last exception block.

引言: Why not? From the help: procedure Abort; C syntax: extern PACKAGE void __fastcall Abort(void); Description Use Abort to escape from an execution path without reporting an error. Abort raises a special "silent exception" (EAbort), which operates like any other exception, but does not display an error message to the end user. Abort redirects execution to the end of the last exception block.

看了 abort procedure help 但還是不了??可否請您舉如上例..謝謝!!

procedure MyAbort;
begin
    ShowMessage('edit');
    Abort;
end;    procedure deltail.dbgride1colenter(sender:tobject)
begin 
    if dsMaster.state = dsInsert then begin
        MyAbort;
        ShowMessage('Never get executed');
    end;
end;

Since Abort is actually an exception, it will stop the execution until handled.

您可以使用下列語法!

 
procedure deltail.dbgride1colenter(sender:tobject)
begin 
  if dsMaster.state = dsInser then 
    raise Exception.Create('Edit');
end;

------
~小弟淺見，參考看看~

先宣告  procedure _stare(mode :string);    然後 

  procedure _stare(mode :string);
  begin
   if mode = 'dsinsert' then
   begin
     showmessage('edit');  
     abort;    
   end;
  end;

最後在

procedure deltail.dbgride1colenter(sender:tobject)
begin 
if dsMaster.state = dsInsert then 
begin 
  _stare('dsinsert');
end;
end;

如此即可 ps : dsinser 應該是 dsinsert 是不是你打錯了 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

引言: 先宣告 procedure _stare(mode :string); 然後

  procedure _stare(mode :string);
  begin
   if mode = 'dsinsert' then
   begin
     showmessage('edit');  
     abort;    
   end;
  end;

最後在

procedure deltail.dbgride1colenter(sender:tobject)
begin 
if dsMaster.state = dsInsert then 
begin 
  _stare('dsinsert');
end;
end;

如此即可 ps : dsinser 應該是 dsinsert 是不是你打錯了 天行健 君子當自強不息~~@.@ 謝謝您