Delphi函数将WrapText的结果转换为TStringList

2018-06-21 21:42:52

我使用这个函数在一个字符串中插入回车符，所以它被很好地格式化为发送电子邮件：

  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中的字符串解析为字符串列表。

任何人都有一个？

TStringList已经有了一个内置的方法来将＃13＃10中的字符串解析成字符串列表。

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

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

链接地址: http://www.djcxy.com/p/61489.html