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处解析成字符串列表。

有人有这样的函数吗？

- M Schenkel

Answer 1

TStringList 已经有一个内置方法可以将一个字符串在 #13#10 处解析成字符串列表。

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

通过解析字符串并在找到回车符时创建新条目，这将填充列表。

- Mason Wheeler