存盘文件里在单元格属性中保存计算公式。
当存盘文件被用来做打印预览时。 使用计算公式计算统计 并显示出来
当存盘文件打印预览完保存时。 计算公式的统计结果保存在单元格的字符串属性里就可以了
也就是说类似这样的结构
TCell=Class(TComponent);
private
fText: String ;
用于显示
fRules : String;
用于保存公式
procedure printpreview;
begin
CalcSometingByRules;
preview;
end;
procedure SaveToAFile;
var i : Integer;
begin
for i := 0 to MaxCellsCount do
SaveCellsTextToDiskfile;