Abort 中止当前正在执行的过程,即该过程失效,而exit 只是结束该过程。看下面的
程序就知道了:
procedure TForm1.FormClose(Sender: TObject
var Action: TCloseAction);
begin
// if edit1.text = 'ok' then exit
if edit1.text <> 'ok' then abort
end;
当用 exit 时,无论Edit1.text的值是不是 'ok' 都会退出,而用 Abort 则只有其值为
'ok'时才退出