delphi SysUtils.WrapText - 换行

本文整理自网络，侵删。

 SysUtils.WrapText - 换行
举例:
--------------------------------------------------------------------------------

var
ss,s: string;
begin
ss := 'aa.bb e-ff';
s := WrapText(ss, #13#10, ['.',' ',#9,'-'], 0);
ShowMessage(s); {aa.}
{bb }
{e- }
{ff }

s := WrapText(ss, #13#10, ['.',' ',#9,'-'], 5);
ShowMessage(s); {aa. }
{bb e- }
{ff }

s := WrapText(ss, #13#10, ['.',' ',#9,'-'], 10);
ShowMessage(s); {aa.bb e-ff}
end;

 

相关阅读 >>

Delphi stringgrid1读取加载excel文件

Delphi编写提取exe文件的ico图标

Delphi 使用钩子函数 - 数据传递

Delphi 通过系统api函数实现精确记时

Delphi将图片转换成文本支持转换回去

Delphi lastdelimiter：在字符串中查找选定的字符最后出现的位置

Delphi中使用临界区来让线程同步

Delphi cxgrid应用笔记

shellexecute的多种用法

Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi SysUtils.WrapText - 换行