for i:=freadstartpos to tempstrings.count-1 do
begin
if rightstr(tempstrings[i],11)='secretspeak' then
//可以看到实现悄悄话无非是在说话内容的最后加了一个特殊的标示secretspeak
begin
//这一段程序从字符串中解析出说话的对象
tostartpos:=pos(' 悄悄的对 ',tempstrings[i]);
fromwho:=copy(tempstrings[i],1,tostartpos-1);//谁说的
tostartpos:=tostartpos+10;
toendpos:=pos(' 说：',tempstrings[i]);
towho:=copy(tempstrings[i],tostartpos,toendpos-tostartpos);//说给谁
////////////////////////////////////////////////////////////////////////////////////////////////////
if (towho='所有人') or (towho=username) or (fromwho=username) then
