for1.pas

来自「脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Bas」· PAS 代码 · 共 15 行

{**************************}
{ FastScript v1.0          }
{ 'For' operator demo 1    }
{**************************}

var
  i, j: Integer;

begin
  j := 1;
  for i := 9 downto 0 do
    Inc(j);
  ShowMessage(j);
end.