Classes2 单元

比较了一下。我感觉稍微有效的点的代码在Grow部分。

这是TMyList的Grow

procedure TMyList.Grow;
begin
  if FCapacity<64 then SetCapacity(FCapacity+8)
  else if FCapacity<256 then SetCapacity(FCapacity+32)
  else if FCapacity<1024 then SetCapacity(FCapacity+64)
  else SetCapacity(FCapacity+128);
end;

 这是TList的

procedure TList.Grow;
var
  Delta: Integer;
begin
  if FCapacity > 64 then
    Delta := FCapacity div 4
  else
    if FCapacity > 8 then
      Delta := 16
    else
      Delta := 4;
  SetCapacity(FCapacity + Delta);
end;

大概这样分配的时候，根据List的已有长度，降低分配的容量。 降低内存的使用量。不过这样会大大减慢list处理add的速度。我试验了一下，同样添加30万个指针，vcl只花了60毫秒左右，而mylist确花了8秒多。