pascal_test3.pp

来自「Delphi脚本控件」· PP 代码 · 共 12 行

var
  I, J, S, T;
T := GetTickCount();
S := '';
for I:=1 to 10000 do
  S := S + 'abc';
println GetTickCount() - T;
println S;
println Length(S);