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;

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