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 如果判断一个网络文件是否存在？

Delphi 检查输入的ip地址串是否合法

Delphi http协议验证访问datasnap rest 服务器

Delphi andorid应用程序检查wifi有效还是无效

format、formatdatetime、formatfloat 的用法

Delphi让程序运行后自我删除或恢复名称

Delphi webservices base64编码

Delphi #9、 #10、 #13 表示的意思

Delphi for 循环的例子 多种用法

Delphi firedac操作sqlite内存数据库

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

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