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;

这将填充列表，方法是解析字符串并在找到返回时在列表中创建新条目。