Question

delphi7中IF语句的使用

if StrToInt(Edit6.Text) > 5 then
begin
MessageDlg('<'+Edit3.Text+'>已达到借阅上限',mtError,[mbok],0);
end;

try
with ADOQuery1 do
begin
sql.Clear;
sql.Add('insert into Lend(Code,ReaderID,OutDate)'+
'values(:Code,:ReaderID,:OutDate)');
Parameters.ParamByName('Code').Value := Edit1.Text;
Parameters.ParamByName('ReaderID').Value := Edit3.Text;
Parameters.ParamByName('OutDate').Value := Edit2.Text;
ExecSQL;
end;

except
MessageDlg('借出<'+Edit1.Text+'>失败',mtError,[mbok],0);
Exit;

end;
我想问下怎么该改可以使 if条件满足的时候就不执行下面的 现在是if的执行了 下面还是执行

Answer 1

  if StrToInt(Edit6.Text) > 5 then
  begin
    MessageDlg('<'+Edit3.Text+'>已达到借阅上限',mtError,[mbok],0);
  end
  else
  begin
      try
          with ADOQuery1 do
          begin
              sql.Clear;
              sql.Add('insert into Lend(Code,ReaderID,OutDate)'+
                             'values(:Code,:ReaderID,:OutDate)');
              Parameters.ParamByName('Code').Value := Edit1.Text;
              Parameters.ParamByName('ReaderID').Value := Edit3.Text;
              Parameters.ParamByName('OutDate'迅稿).Value := Edit2.Text;
              ExecSQL;
   亩帆孝       end;
      except
          MessageDlg('借出<'+Edit1.Text+'>失败',mtError,[mbok],0);
  轿返        Exit;
      end;
   end;

Answer 2

加个exit或者把不想执行的部喊孙桐郑坦位放凯山到else中。if then else begin 不想执行的部分 end;

Answer 3

if StrToInt(Edit6.Text) > 5 then
begin
MessageDlg('<'+Edit3.Text+'空贺亮>已达到斗宽借阅上拍简限',mtError,[mbok],0);
exit ;
end;