基类中调用OrderCheck
procedure TBaseBillobj.BillDetailCheckData(cdsDataSet:TClientDataSet);
begin
。。。。。。。
｛如果图4中的xxxBillobj单据子类没有override OrderCheck,那么在此实际上就会执行下面基类的的TbaseBillobj.OrderCheck，它是一个空方法。 ｝
if Self.FProcessTag>=2 then
OrderCheck(cdsDataSet);
end;
基类实现：
procedure TBaseBillobj.OrderCheck(cds:TClientDataSet);
begin
//只有销售单、进货单TsaleBillobj、TbuyBillobj override并具体实现此方法
end;
考虑一下，如果用非OO的设计来完成类似这样的情况，那应该是是写一个通用的
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
