Delphi 的TStringBuilder防止服务器内存碎片化

Delphi 2009+ 的 System.SysUtils提供了一个类似.Net的StringBuilder，用于存储字符数组。

很多人不明白为什么要用TStringBuilder, Delphi中有string,有几乎所有TStringBuilder的功能函数， System.SysUtils中还有TStringHelper方便扩展String,更方便String的使用。

从Delphi提供的源码看，TStringBuilder与string最大的区别是，TStringBuilder是可以预先申请了内存空间，并限制最大内存空间，不会自动释放，而string是用多少申请多少内存，自动释放。

由此可见TStringBuilder相对于String的优势有2：

1.在开发服务器软件时，使用TStringBuilder池，可以有效地防止内存碎片化.

2.由于不需要开辟新的存储空间存储更大的字符串，预先申请内存的TStringBuilder的运行效率将超越string.

下面的代码中TServerString继承自TStringBuilder，内存空间限制大小为MaxMemorySize，, 当准备写入的字符将要超过内存大小时，将自动抛出异常，

服务器软件可以接获此异常后处理。

下面的代码有待测试：

  1 unit Iocp.ServerString;
  2 
  3 interface
  4 
  5 uses SysUtils, Classes;
  6 
  7 type
  8   TServerStringPool=class;
  9   TServerString=class(TStringBuilder)
 10   protected
 11     class var FPool:TServerStringPool;
 12     constructor Create;
 13   public
 14     destructor Destroy;override;
 15   end;
 16 
 17   TServerStringPool=class
 18   protected
 19     FList:TThreadList;
 20   public
 21     constructor Create(Capacity:Integer);
 22     destructor Destroy;override;
 23     function GetString:TServerString;
 24     procedure FreeString(Value:TServerString);
 25   end;
 26 
 27 implementation
 28 
 29 const
 30   MaxMemorySize=16384;
 31 
 32 
 33 { TServerString }
 34 
 35 constructor TServerString.Create;
 36 var
 37   N:Integer;
 38 begin
 39   N:=(MaxMemorySize-InstanceSize) div SizeOf(Char);
 40   inherited Create(N, N);
 41 end;
 42 
 43 destructor TServerString.Destroy;
 44 begin
 45   FPool.FreeString(Self);
 46 end;
 47 
 48 { TServerStringPool }
 49 
 50 constructor TServerStringPool.Create(Capacity: Integer);
 51 var
 52   i: Integer;
 53   L:TList;
 54 begin
 55   inherited Create;
 56   L:=FList.LockList;
 57   try
 58     for i := 1 to Capacity do
 59     begin
 60       L.Add(TServerString.Create);
 61     end;
 62   finally
 63     FList.UnlockList;
 64   end;
 65 end;
 66 
 67 destructor TServerStringPool.Destroy;
 68 var
 69   i: Integer;
 70   L:TList;
 71 begin
 72   L:=FList.LockList;
 73   try
 74     for i := L.Count-1 to 0 do
 75       TStringBuilder(L[i]).Free;
 76   finally
 77     FList.UnLockList;
 78   end;
 79   FList.Free;
 80   inherited;
 81 end;
 82 
 83 procedure TServerStringPool.FreeString(Value: TServerString);
 84 begin
 85   FList.Add(Value);
 86 end;
 87 
 88 function TServerStringPool.GetString: TServerString;
 89 var
 90   L:TList;
 91 begin
 92   L:=FList.LockList;
 93   try
 94     if L.Count=0 then
 95     begin
 96       Result:=TServerString.Create;
 97     end
 98     else
 99     begin
100       Result:=TServerString(L[L.Count-1]);
101       L.Delete(L.Count-1);
102     end;
103   finally
104     FList.UnlockList;
105   end;
106 end;
107 
108 initialization
109   TServerString.FPool:=TServerStringPool.Create(10240);
110 finalization
111   TServerString.FPool.Free;
112 end.

http://www.cnblogs.com/hezihang/p/3321647.html