delphi try abort、exit except 、finally end 执行情况

Delphi try abort、exit except 、finally end 执行情况

 try

    abort;

    Edit1.Text := timetostr(now); //没执行

  except

  //执行了

    ShowMessage('1');

  end;

  try

    exit;

    Edit1.Text := timetostr(now); //没执行

  except

  //没执行

    ShowMessage('1');

  end;

  try

    exit;

    Edit1.Text := timetostr(now); //没执行

  finally

  //执行了

    ShowMessage('1');

  end;

  try

    abort;

    Edit1.Text := timetostr(now); //没执行

  finally

  //执行了

    ShowMessage('1');

  end;

————————————————

原文链接：https://blog.csdn.net/ozhy111/article/details/90902987