Formula One中如何保存WorkBook及自定义函数？(75分)

提两个formula one 5编程问题，请高手指点：

1.用WRITE或WriteEx方法保存一个有多个WorkSheet的WorkBook时，总
是只保存了第一张WorkSheet，并且该Sheet的名字也被改为Write时
我指定的文件名称。

2.听说formula one 5.0中可以自定义函数，不知该用什么方法？

(以上编程是在DELPHI4上进行的）

问题1已解决，请高手们指点问题2吧。

wuyi 你说的 Formula one 5.0 是一个什么东西? D4 自带的是 3.0.4。

可以用:
F1Book1.Formula := '公式或函数' 为当前的 cell 赋一个计算公式
F1Book1.FormulaRC[nRow, nCol]:= '...' 为某一指定的 cell 加一个公式
F1Book1.DefinedName[namestring]:='...' 为某一个名称赋值
例如:
with f1book1 do
begin
EntryRC[1,1]:='2'; //A1=2
EntryRC[2,1]:='4'; //A2=4
EntryRC[3,1]:='A1+A2=';
FormulaRC[4,1]:='A1+A2'; //A4=A1+A2
EntryRC[1,2]:='named "Num1"';
EntryRC[2,2]:='named "Num2"';
EntryRC[3,2]:='N1+N2=';
DefinedName['Num1']:='$A$1'; //A1命名为Num1
DefinedName['Num2']:='$A$2'; //A2命名为Num2
FormulaRC[4,2]:='Num1+Num2'; //A4=Num1+Num2
EntryRC[5,1]:='Function Num12=Num1+SQRT(Num2)';
DefinedName['Num12']:='$A$1+sqrt(Num2)'; //公式Num12
FormulaRC[6,1]:='Num12'; //A6=公式Num12
end;

huizhang大侠：

自定义公式的意思是，在formula one中可以加入自己的函数名称，并要

指定它调用程序中的特定函数。

例如加入的公式： 全年累计(参数1，参数2)

在定义时指定此函数调用myfunc(para1,para2),然后在单元格中写入

公式: "＝全年累计(1998,'销售')"

在 Delphi Formula One 3.0 版中实际上不能定义函数, 大概专业版可以吧

没有变通的办法吗？

你要作些什么, 要实现那些功能弹一下, 让大家条论一下变通办法

比如通过编程去解释自己定义的函数名。就是不知该如何实现。

接受答案了.

wuyi 请问你自定义的函数是怎么实现的