TbExpressionService 类

TbExpressionService 是 twinBASIC 的运行时表达式引擎：一种将作为普通字符串提供的 twinBASIC 语法表达式即时编译和求值的方式，无需经过单独的构建步骤。它驱动计算器、报表中的公式列、可脚本化属性绑定以及任何需要将用户提供的文本转换为值的功能。

它暴露为一个类和两个接口：

TbExpressionService -- 引擎；用 New 实例化一个，注册其绑定器，然后对其 Compile 表达式。
ITbExpression -- 由 Compile 返回的编译表达式句柄，通过 Evaluate 求值。
ITbCustomBinder -- 实现此接口以提供完全自定义的符号解析。

编译和求值表达式

创建一个 TbExpressionService，注册至少一个绑定器，然后调用 Compile 获取一个 ITbExpression。同一个编译表达式可以根据需要求值任意次数，因此在源文本不变时应重用它。

Sub Demo()
    Dim Service As TbExpressionService = New TbExpressionService
    Service.AddStdLibraryBinder()                       ' enable Sin, Sqr, Len, ...

    Dim Expr As ITbExpression = Service.Compile("2 * (Sqr(2) + 1)")
    Debug.Print Expr.Evaluate()                         ' 4.82842712474619
End Sub

绑定用户对象

标准库之外的任何内容——应用程序对象、配置值、辅助函数、记录集字段——都必须通过绑定器对引擎可见。

最简单的形式是 AddCustomBinderObject，它接受一个名称和一个对象，并在该名称下暴露对象的公共成员。传入 IsAppObject 标志可使对象的行为类似于 Office 宿主的 Application：其成员既可以通过限定名访问（Report.Title），也可以通过非限定名访问（Title）。

Sub UseCustomObject()
    Dim Service As TbExpressionService = New TbExpressionService
    Service.AddStdLibraryBinder()
    Service.AddCustomBinderObject "Report", Me, IsAppObject

    Debug.Print Service.Compile("Report.Title").Evaluate()  ' qualified
    Debug.Print Service.Compile("Title").Evaluate()         ' unqualified — IsAppObject in effect
End Sub

要完全控制符号解析——例如，针对记录集动态查找名称、将名称虚拟化为成员访问之外的其他形式，或回退到自定义默认值——请实现 ITbCustomBinder 并使用 AddCustomBinder 注册它。多个绑定器可以共存；引擎按注册顺序查询它们，直到有一个返回非 Nothing 结果。