解決的方法:
TStrings *tmp=new TStringList;//中間變量,用於暫時保存字符串列表的內容
String Spilth=MemoB->Strings[i];
if(Trim(Spilth)!="")
{
tmp->Text=StringReplace(MemoA->Text,Spilth,"",TReplaceFlags() << rfReplaceAll);
}
TStringStream *str=new TStringStream(tmp->Text);//使用字符串流來轉移數據,這就搞定,而且速度超快!!
MemoA->LoadFromStream(str);
tmp->Free();
str->Free();