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

[xiangyun123]

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

[zsjzwj]

捕捉消息，然后写一个函数。

[xiangyun123]

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

[Dhammacakkhu]

用raise
具体看看delphi的帮助

[Dhammacakkhu]

直接执行exe文件试试

[hiflower]

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

[Hank]

你那段代码根本就没有异常，所以代码不可能激活，所以也不能保存！

你完全不理解异常的核心！什么是异常，异常是程序未知的错误，如果是已知的，用异常反而麻烦，就象你的，可以如下：

try
if (trim(dbedit8.Text)='') then
application.MessageBox('申请人不能为空,请重新输入','输入错误',mb_ok)
else
table1.Post;
except
raise Exception.create('some bad stuff happen');
end;

这样只是控制table1.Post;时的异常！

[tomyang]

看到你的代码，我有所感触，用异常确实是一个比较方便的方式，我会这样写

try
if (trim(dbedit8.Text)='') then
raise Exception.create('申请人不能为空,请重新输入');
table1.post ;
except
on e:Exception do
begin
application.MessageBox(e.message)
end
end;

上面的代码，你感觉如何？