怎样在程序中特别的触发一个异常！！

Question

怎样在程序中特别的触发一个异常！！我在程序中想人为的触发一个异常，怎么写代码

Answer 1

怎样怎么不行呀,还是不能保存数据
try
if (trim(dbedit8.Text)='') then
 application.MessageBox('申请人不能为空,请重新输入','输入错误',mb_ok)
else
 raise Ebad.create('some bad stuff happen');
except
table1.Post;
end;

Answer 2

用raise
具体看看delphi的帮助

Answer 3

raise Exception.Create('This is a Exception');

Answer 4

你那段代码根本就没有异常，所以代码不可能激活，所以也不能保存！你完全不理解异常的核心！什么是异常，异常是程序未知的错误，如果是已知的，用异常反而麻烦，就象你的，可以如下：try
if (trim(dbedit8.Text)='') then
 application.MessageBox('申请人不能为空,请重新输入','输入错误',mb_ok)
else
 table1.Post;
except
  raise Exception.create('some bad stuff happen');
end;这样只是控制table1.Post;时的异常！

Answer 5

看到你的代码，我有所感触，用异常确实是一个比较方便的方式，我会这样写try
  if (trim(dbedit8.Text)='') then 
    raise Exception.create('申请人不能为空,请重新输入');
  table1.post ;
except
  on e:Exception do 
  begin
    application.MessageBox(e.message)
  end 
end;上面的代码，你感觉如何？