for循环分支

Question

我用for循环方式执行SQl语句列表，要求:如果执行出错，跳出一个消息框,框内2个按钮：1.继续往下执行，2.中止for循环。
请问 怎么实现 谢谢

Answer 1

For i:=0 to 100 Do
  Begin
    Adoquery.Close;
    Adoquery.SQL.Text:='Select * From TB Where kaikai='帅哥';
    Try
      Adoquery.ExecSql; {或Open}
    Except
     If MessageBox(0,'执行SQL语句出错,是否继续执行?','提示',MB_YesNo+MB_IconError)=IdYes Then
      Continue
     Else
       Break;
    End;
  End;