标签：unlock pac add blog 字符 超越 mem initial val
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.
Delphi 的TStringBuilder防止服务器内存碎片化
标签：unlock pac add blog 字符 超越 mem initial val
原文地址：http://www.cnblogs.com/wz901881/p/6854621.html
