TMSScripter工作室开发者向导Word下载.docx

1、脚本结构脚本结构用2个主要的块组成：1、过程和函数声明；2、主要的块。两个块是可选择的,但是在脚本中至少要有一个。主要的块不需要begin.end。它可以是一个单一的声明。一些例子：脚本1：procedure DoSomething;beginCallSomething;end;CallSomethingElse;脚本2：脚本3：function MyFunction;result:=Ok!;脚本4：和Pascal一样，声明应该由“;”结尾。begin.end块是允许集合一批声明。标识符在脚本的标识符名字（变量名字，函数和过程名字,等等。）跟随Pascal最普通的规则：应该从一个字符开始（a.

2、z或A.Z）,或“_”,和继之以包含数字字母的字符或“_”字符。不能包含任何别的字符或空格。有效的标识符：VarName_SomeV1A2无效的标识符：2VarMy NameSome-moreThis,is,not,valid赋值声明赋值语句和Pascal一样，赋值语句是使用“:=”。例子：MyVar:=2;Button.Caption:This + is ok.字符串字符串是同pascal一样使用单引号（）字符。双引号（）不能使用。你也能使用（#）字符宣布一个字符在一个字符串的内部，不需要使用（+）操作符增加一个字符到一个字符串。A:This is a textStr:Text +conca

3、tB:String with CR and LF char at the end#13#10;C:String with #33#34 characters in the middle注释在脚本内能插入注释。你能使用/字符或（* *）或。使用/字符注释只能注释一行。/This is a comment before ShowMessageShowMessage（Ok）;（* This is another comment *）More ok! And this is a commentwith two lines End of okays变量不需要在脚本中声明变数类型。这样,你宣布变量只需要使

4、用var命令和变量的名字。如果脚本的OptionExplicit属性被设置为false，那么就不需要声明变量。在这种情况下,变数是暗示声明。如果你想要脚本上有更多的控制，设置OptionExplicit属性为true。如果OptionExplicit属性为true，而在脚本中使用了变量但不进行声明，将会唤醒一个编译错误。procedure Msg;var S;S:Hello world!ShowMessage（S）;脚本2:var A;=0;=A+1;脚本3:Hello World!如果脚本属性OptionExplicit被设置为false，那么var声明不需要出现在任何脚本的上方。索引字符串

5、，数组和数组属性可以使用索引“”并且“”字符。更多例子：MyChar:=MyStr2;MyStr1:AMyArray1,2:=1530;Lines.Strings2:Some text数组脚本支持数组和variant数组，使用方法参考Pascal。注意：数组的索引是从0开始的。NewArray := 2,4,6,8 ;Num:=NewArray1; /Num receives 4MultiArray := green,redblue , appleorangelemon ;=MultiArray0,2; /Str receives MultiArray1,1:new orangeIf语句if语

6、句有2种形式：if.then和if.then.else。if J 0 then Result := I/J;if J = 0 then Exit else Result : 0 thenResult :Count := Count + 1;endelseDone := True;While语句同Pascal。while DataI 0 doif Odd（I） then Z := Z * X;I := I div 2;X := Sqr（X）;while not Eof（InputFile） doReadln（InputFile, Line）;Process（Line）;repeat语句repea

7、tK := I mod J;= J;J := K;until J = 0;Write（Enter a value （0.9）: Readln（I）;until （I = 0） and （I B then=A=B;procedure SwapValues（var A, B）;Var Temp;Temp:=A;=Temp;Basic的语法TatBasicScripter组件执行Basic语法的脚本。Basic语法支持： sub . end and function . end declarations byref and dim directives if . then . else . end

8、constructor for . to . step . next constructor do . while . loop and do . loop . while constructors do . until . loop and do . loop . until constructors , div , mod , xor , shl , shr operators try . except and try . finally blocks select case . end select constructor exit statement access to object

9、properties and methods （ ObjectName.SubObject.Property ）同Pascal的脚本结构。SUB DoSomethingCallSomethingEND SUBCallSomethingElseFUNCTION MyFunctionMyFunction = END FUNCTION同正常Basic一样,所声明的一个单行能由“:”字符分开。同Basic，标识符一些例子：使用“=”字符。MyVar = 2Button.Caption = This + is ok.使用（A = This is a textStr = Text +concat使用（）或

10、（REM）字符。 This is a comment before ShowMessageShowMessage（OkREM This is another comment And this is a comment with two linesEnd of okays这样,你宣布变量只需要使用DIM命令和变量的名字。SUB MsgDIM SS = ShowMessage（S）DIM AA = 0A = A+1ShowMessage（A）如果脚本属性OptionExplicit被设置为false，那么DIM声明不需要出现在任何脚本的上方。MyChar = MyStr2MyStr1 = AMyA

11、rray1,2 = 1530Lines.Strings2 = Some text脚本支持数组和variant数组，同Pascal脚本的一样。NewArray = 2,4,6,8 Num = NewArray1 /Num receives MultiArray = green,redblue , appleorangelemon Str = MultiArray0,2 /Str receives MultiArray1,1 = new orangeIf声明if.then.end if和if.then.else.end if。IF J 0 THEN Result = I/J END IFIF J

12、= 0 THEN Exit ELSE Result := I/J END IF 0 THENResult = I/JCount = Count + 1ELSEDone = TrueEND IFWhile声明同Basic。WHILE （DataI 0）IF Odd（I） THEN Z = Z * X END IFX = Sqr（X）END WHILEWHILE （not Eof（InputFile）Readln（InputFile, Line）Process（Line）Loop声明支持loop语句，功能同Basic中的loop语句。可能的语法是：DO WHILE expr statements

13、LOOPDO UNTIL expr statements LOOPDO statements LOOP WHILE exprDO statement LOOP UNTIL exprDOK = I mod JI = JJ = KLOOP UNTIL J = 0DO UNTIL I = 0Write（ Readln（I）LOOPLOOP WHILE J 0DO WHILE I B THENMAX = AMAX = BSUB SwapValues（BYREF A, B）DIM TEMPTEMP = AA = BB = TEMP脚本的工作现在我们讲到了脚本的具体使用方法。开始开始脚本，只需要把脚本赋值

14、给TatCustomScripter组件的SourceCode属性，并调用Execute方法。下面是一个简单的例子：Scripter.SourceCode.Text:Scripter.Execute;现在我们变得灵活一点。在窗口上放一个Tmemo组件，并把代码改为下面这样：Scripter.SourceCode:=Memo1.Lines;现在你可以在程序运行的时候在Memo组件中输入脚本，并运行它了。公共任务在脚本中调用程序中的子程序如果脚本要直接调用程序中的一个或多个函数和过程，你只要使用ExecuteSubRouti方法就可以了：Pascal示例脚本:procedure DisplayHe

15、lloWorld;procedure DisplayByeWorld;Bye world!Basic示例sub DisplayHelloWorldShowMessage（“Hello world!”）;end subsub DisplayByeWorldShowMessage（“Bye world!代码：Scripter.ExecuteSubRoutine（DisplayHelloWorldDisplayByeWorld上面的代码将显示“Hello word!”和“Bye world!”消息框。取得脚本返回的值如果Delphi要取得脚本中的过程或函数返回的值，使用ExecuteSubRouti

16、ne方法。见下例：function Calculate;=（10+6）/4;function CalculateCalculate = （10+6）/4end functionFunctionValue:=Scripter.ExecuteSubRoutine（Calculate如果Delphi要取得脚本所返回的值。代码:=Scripter.Execute;在Basic中要达到同样的效果，就要使用保留字“MAIN”：MAIN = （10+6）/4。传递参数到脚本如果要把Delphi变量的值传递给脚本，还是同样使用ExecuteSubRoutine方法见下例：function Double（Num）;=Num*2;function Double（Num）Double = Num*2End functionCODE:Double,5）;FunctionValue接收到10。如果你要传递更多的变量，就要使用一个Variant数组：function MaxValue（A,B）;