array.pas

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

{**************************}
{ FastScript v1.0          }
{ Arrays demo              }
{**************************}

var
  i, j: Integer;
  ar: array[0..9] of String;
  s: String;

begin
  for i := 0 to 9 do
    ar[i] := IntToStr(i);

  s := '';
  for i := 0 to 9 do
    s := s + ar[i];

  ShowMessage(s);
end.