Delphi函數轉換WrapText的結果的TStringList

Question

我用這個函數，在一個字符串中插入回車所以它很好地格式化爲電子郵件：

m := WrapText(m, #13#10, ['.',' ',#9,'-'], 60); 

問題是我的電子郵件客戶端有1023個字符的限制時，處理字符串。因此，如果m的原始長度大於1023，它會被截斷（注意：電子郵件客戶端可能有事件來處理這種情況，但我認爲更簡單的方法是隻給它的字符串小於極限值）。

我正在尋找這樣的「WrapTextToStringList」功能：

var 
    mStringList: TStringList; 
begin 
    mStringList := WrapTextToStringList(m, #13#10, ['.',' ',#9,'-'], 60); 

所以說我這傳遞了一個電子郵件消息的220字符體。結果將是一個包含大約4個條目的字符串列表。

我認爲這只是歸結爲創建一個函數，它將字符串解析爲一個字符串列表中的＃13＃10。

任何人都得到一個？

Answer 1

TStringList已經有一個內置的方法來解析＃13＃10的字符串到字符串列表中。

MyStringList := TStringList.Create; 
MyStringList.Text := MyString; 

這將通過解析字符串，一發現返回創建列表中的一個新的條目填充列表。