case.pas

脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Basic

{**************************}
{ FastScript v1.0          }
{ 'Case' operator demo     }
{**************************}

var
  i, j: Integer;

begin
  i := 0;
  case i of
    1: j := 1;
    2..10:
      begin
        j := 2;
        Inc(j);
      end;
    else
      j := 10;
  end;
  ShowMessage(j);
end.