pascal_test2.pp

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

var I, J, K, T;
T := GetTickCount();
for I := 1 to 100000 do
  for J := 1 to 10 do
    If I > J Then
      K := I > 1000
    else
      K := J < 5;
println GetTickCount() - T;