Delphi函数将WrapText的Result转换为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;

这将通过解析字符串并在找到返回时在列表中创建新条目来填充列表.