repeat.pas

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

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

var
  i, j: Integer;

begin
  j := 1;
  i := 0;
  repeat
    j := j + 1;
    Inc(i);
  until i = 10;

  ShowMessage(j);
end.