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 xe 使用asqlite操作sqlite数据库乱码

Delphi 选择一张照片，让照片缩略图显示在图片控件中间

Delphi 获取硬盘盘符

Delphi stringgrid如何清空

Delphi 遍历类中的属性

Delphi 从一个html返回所有的图片链接

Delphi createprocesswithlogonw用法

Delphi ansi字符串转unicode编码

Delphi date 返回当前的日期

Delphi程序将自身可执行文件拷贝到u盘的代码

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

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