求给F1BOOK增加自定义函数的方法,急急急急急急!(200分)

  • 主题发起人 主题发起人 query1
  • 开始时间 开始时间
Q

query1

Unregistered / Unconfirmed
GUEST, unregistred user!
求给F1BOOK增加自定义函数的方法,急急急急急急!
 
继承后添加可以实现
 
to ball_cao:
请详细说明,最好附源码,谢谢!
 
with f1book1do

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;
 
TYOURF1BOOK=CLASS (TF1Book)
private
...
protected
....
public
...
end;
 
后退
顶部