我用一個字串變數(MsgRecvPool)來存放從Socket接收到的報文，然後用一個線程專門來分析與截取裏面的內容。Socket不斷的把資料加到MsgRecvPool的後面，而線程也不斷的析取MsgRecvPool中的內容，請問如果實現對MsgRecvPool的線程安全訪問？

{報文提取線程類}
TParseThread = class(TThread)
private
protected
procedure Execute; override;
public
constructor Create;
end;

var
MsgRecvPool: string; //Socket報文接收緩衝
ParseThread: TParseThread; //報文提取線程

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
MsgRecvPool := MsgRecvPool Socket.ReceiveText; //把接收的報文加到MsgRecvPool後面
if ParseThread.Suspended then ParseThread.Resume; //如果分析線程被掛起，則喚醒它
end;

procedure TParseThread.Execute;
var
HeadPos, FootPos, MsgLength: integer;
AMsg: string;
begin
while not Terminated do
begin
MsgLength := Length(MsgRecvPool);
if MsgLength = 0 then //如果MsgRecvPool中為空則掛起線程
begin
Suspend;
Continue;
end;
HeadPos := SmartPos('<?xml ', MsgRecvPool, False);
if HeadPos > 0 then
begin
FootPos := Pos('', MsgRecvPool);
if FootPos > 0 then
begin
AMsg := Copy(MsgRecvPool, HeadPos, FootPos - Headpos 7); //取得一段完整報文
Delete(MsgRecvPool, 1, FootPos 6); //從MsgRecvPool中清除已取得的報文

Synchronize(InvokeMsgProcessor);
end
end
else MsgRecvPool := ''; // HeadPos <= 0 緩衝中沒有報文頭，則拋棄已緩衝內容
Sleep(0);
end;
end;

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

不应该采用一个 string，然后用 string 的方式来保存多条报文。
1. 访问 string 不容易做thread safe
2. string 的操作是个非常消耗 cpu 的操作。尽量避免。

这里，最简单的做法，应该是拿一个 TThreadList 来保存每一条报文。这个 List 的类别是 thread safe 的，相关用法你可以查 help.

如果系统要求比较复杂，可能用单纯的 string 来保存报文已经不够。我的一个实际的程序里，一开始用多条 string 来保存报文，后来改用自己定一的类了。比如：

TMyData = class(TObject)
private
FString: string;
public
...
...
end;


为了避免不停地 Create 和 Free 这个用来缓存报文的 MyData 对象，就要做一个对象池( Object Pool) 了。呵呵，最后，越做越复杂。