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 xe7上启用android蓝牙

Delphi 代替pos的函数

d10环境下调用hidcontroller1.0.35获取数据乱码问题

Delphi android实例-红外线操作(xe10.2+小米5)

Delphi中move 函数额用法

Delphi 在电脑屏幕上显示图片

wmi使用的win32_类库名

Delphi获取13位格林治时间实现方法

Delphi 接口尚未调用尚未调用coinitialize解决办法

Delphi android控制睡眠

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

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