try... except在运行期间无法捕获异常(不显示错误信息)
function TDBaseClass.UpdateDelta(CDS: TClientDataSet): Boolean;
{描述:更新cds的Delta到数据库中
说明:在做两层结构时用 CDS.DataSet设为 DataModule的ADOQuery\ADOConnection连接到数据库
}
begin
Result:=False;
try
CDS.ApplyUpdates(0); //改-1也不会提示
Result:=True;
except
on E:Exception do ShowMessage(E.Message);
end;
end;
程序中调用此函数的时候,如果数据有错误,在调试的时候有错误提示,
可以运行的时候却不会有任何提示, 不会把数据更新到数据库,
不知道是什么原因高手指点.