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 进制转换之10进制与34进制互转

Delphi xe 安卓开发黑屏的另一种解决办法

Delphi 字节数转换为kb或mb字符串

crc32.pas 第二版

Delphi messagebox 和 messagedlg用法

Delphi解决dll注入桌面卡的问题

Delphi读写utf-8、unicode格式文本文件

Delphi 7 中的随机函数

Delphi xe8 tstylebook的使用

Delphi twebbrowser 屏蔽右键菜单

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

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