Delphi 中 ScriptControl 的高级应用（一） 在我们的 Window s 系统里提供了一个叫 ScriptControl 的 OCX 组件，我们可以用这个组件来实现脚本故事世界的精彩。 1、创建 ScriptControl 组件服务 首先，我们来看一下该组件都有哪些方法和属性。如图 001，002。 图 001 图 002 接着，我们用 Delphi 创建组件服务。 从图 001 可知，该组件的 ProgID 为“MSScriptControl.ScriptControl.1”。所以我们可以这样创建组件： Var sc : OleVariant; begin sc := CreateOleObject('MSScriptControl.ScriptControl.1'); //使用 Language 属性来设定该组件所使用的语言 //语言可以为：VbScript、JavaScript(也可缩写为 JScript) //相当于在 HTML 里用的
Delphi 中 ScriptControl 的高级应用（一） 在我们的 Window s 系统里提供了一个叫 ScriptControl 的 OCX 组件，我们可以用这个组件来实现脚本故事世界的精彩
1、创建 ScriptControl 组件服务 首先，我们来看一下该组件都有哪些方法和属性
如图 001，002
图 001 图 002 接着，我们用 Delphi 创建组件服务
从图 001 可知，该组件的 ProgID 为“MSScriptControl
ScriptControl
所以我们可以这样创建组件： Var sc : OleVariant; begin sc := CreateOleObject('MSScriptControl
ScriptControl
1'); //使用 Language 属性来设定该组件所使用的语言 //语言可以为：VbScript、JavaScript(也可缩写为 JScript) //相当于在 HTML 里用的… sc
Language :='JavaScript'; end; 2、用 Eval（）来实现最简单的数学表达式的计算 Eval（）是这个组件中用的最多的一个方法，也是经常被大家用来计算数学表达式的一个方法
演示 Function calc(const expression : String):Integer; Var sc : OleVariant; begin //expresion := ‘100+5*3’; sc := CreateOleObject('MSScriptControl
ScriptControl
1'); sc
Language :='JavaScript'; result := StrtoInt( sc
