end;
adataset.next;
end
fcurrentrow := fcurrentrow + j;
到这里,这个模板分析类的核心功能基本完成了,我想如果这个类的实现代码全部完成后,应该把这个类做成一个component,并注册到delphi的ide中,以便以后使用。在上而提到的类的事件,是用来实时通知客户当前正在处理哪个element和cell,客户可以在此事件中做更进一步的特殊处理(例如将上述模板中产值小于完成计划数的单元格置为红色等等),非常灵活,但是出于代码整洁,在这里我没有加到代码中。另外在程序中还可以在报表中加入excel的各种chart、shape等对象,这些留着我以后再写吧。
txltemplateanalyzer类的是这样调用:
begin
1先将数据集、变量注册。