void CrnAddStringToMemo(TMemo *mmo, String strAppend){ String strLine(""); if(mmo->Lines->Count) { strLine = mmo->Lines->Strings[mmo->Lines->Count - 1]; if(strLine.Length() < 20) // 假定限制最少20个字符 mmo->Lines->Strings[mmo->Lines->Count - 1] = strLine + strAppend; else mmo->Lines->Add(strAppend); } else mmo->Lines->Add(strAppend);}
void __fastcall TForm1::Button1Click(TObject *Sender){ CrnAddStringToMemo(Memo1, "test,我靠,合俣哈哈,妖哥万岁的说。"); CrnAddStringToMemo(Memo1, "test");}
CrnAddStringToMemo是自定义函数。用来向某个Memo添加数据。