object1.pp

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

uses Classes;
var
  t, i: Integer;
  l: TList;
begin
  t := GetTickCount();
  l := TList.Create;
  for i := 0 to 200000 do
  begin
    l.Add(nil);
    l.Delete(0);
  end;
  println GetTickCount() - t;
end.