object2.pp

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

uses Classes;
var
  t, i: Integer;
  c: TComponent;
begin
  t := GetTickCount();
  c := TComponent.Create(nil);
  for i := 0 to 500000 do
    if c.Tag = 0 then
    begin
      c.Tag := 0;
      c.Name := 'c';
    end;
  println GetTickCount() - t;
end.