функция 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; 

Это будет заполнить список путем разбора строки и создать новую запись в списке, когда он находит возвращение.