TMSScripter语法

 TatPascalScripter组件执行脚本的Pascal语法。Pascal语法支持：
•begin .. end
•procedure and function
•if .. then .. else
•for .. to .. do .. step
•while .. do
•repeat .. until
•try .. except and try .. finally
•case
•array constructors (x:=[ 1, 2, 3 ];)
•^ , * , / , and , + , - , or , <> , >=, <= , = , > , < , div , mod , xor , shl , shr
•访问对象属性和方法ObjectName.SubObject.Property)

有效的标识符：
VarName
_Some
V1A2

赋值声明
赋值语句和Pascal一样，赋值语句是使用“:=”。例子：
MyVar:=2;
Button.Caption:='This ' + 'is ok.';

字符串
字符串是同pascal一样使用单引号（'）字符。双引号（"）不能使用。你也能使用（#）字符宣布一个字符在一个字符串的内部，不需要使用（

+）操作符增加一个字符到一个字符串。一些例子：
A:='This is a text';
Str:='Text '+'concat';
B:='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 ShowMessage
ShowMessage('Ok');

(* This is another comment *)
ShowMessage('More ok!');

{ And this is a comment
with two lines }
ShowMessage('End of okays');

变量
不需要在脚本中声明变数类型。这样,你宣布变量只需要使用var命令和变量的名字。如果脚本的OptionExplicit属性被设置为false，那么就不

需要声明变量。在这种情况下,变数是暗示声明。如果你想要脚本上有更多的控制，设置OptionExplicit属性为true。如果OptionExplicit属性

为true，而在脚本中使用了变量但不进行声明，将会唤醒一个编译错误。例子：
脚本1：
procedure Msg;
var S;
begin
S:='Hello world!';
ShowMessage(S);
end;

脚本2:
var A;
begin
A:=0;
A:=A+1;
end;

脚本3:
var S;
S:='Hello World!';
ShowMessage(S);

如果脚本属性OptionExplicit被设置为false，那么var声明不需要出现在任何脚本的上方。

索引
字符串，数组和数组属性可以使用索引“[”并且“]”字符。更多例子：
MyChar:=MyStr[2];
MyStr[1]:='A';
MyArray[1,2]:=1530;
Lines.Strings[2]:='Some text';

数组
脚本支持数组和variant数组，使用方法参考Pascal。注意：数组的索引是从0开始的。更多例子：
NewArray := [ 2,4,6,8 ];
Num:=NewArray[1]; //Num receives "4"
MultiArray := [ ['green','red','blue'] , ['apple','orange','lemon'] ];
Str:=MultiArray[0,2]; //Str receives 'blue'
MultiArray[1,1]:='new orange';

If语句
if语句有2种形式：if..then和if..then..else。更多例子：
if J <> 0 then Result := I/J;
if J = 0 then Exit else Result := I/J;
if J <> 0 then
begin
Result := I/J;
Count := Count + 1;
end
else
Done := True;

While语句
同Pascal。更多例子：
while Data[I] <> X do I := I + 1;
while I > 0 do
begin
if Odd(I) then Z := Z * X;
I := I div 2;
X := Sqr(X);
end;

while not Eof(InputFile) do
begin
Readln(InputFile, Line);
Process(Line);
end;

repeat语句
同Pascal。更多例子：
repeat
K := I mod J;
I := J;
J := K;
until J = 0;

repeat
Write('Enter a value (0..9): ');
Readln(I);
until (I >= 0) and (I <= 9);

for语句
同Pascal。更多例子：
脚本1:
for c:=1 to 10 do
a:=a+c;

脚本2:
for i:=a to b do
begin
j:=i^2;
sum:=sum+j;
end;

case语句
同Pascal。更多例子：
case uppercase(Fruit) of
'lime': ShowMessage('green');
'orange': ShowMessage('orange');
'apple': ShowMessage('red');
else
ShowMessage('black');
end;

函数和过程说明
函数和过程的宣告同Delphi的非常相似,唯一的差别只在于不需要指定变量的类型。函数的返回值是使用暗示的Result变量。参数传地址也能被

使用,只是不需要规定变量类型。一些例子：
procedure HelloWord;
begin
ShowMessage('Hello world!');
end;

procedure UpcaseMessage(Msg);
begin
ShowMessage(Uppercase(Msg));
end;

function TodayAsString;
begin
result:=DateToStr(Date);
end;

function Max(A,B);
begin
if A>B then
result:=A
else
result:=B;
end;

procedure SwapValues(var A, B);
Var Temp;
begin
Temp:=A;
A:=B;
B:=Temp;
end;