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 tbutton.onclick 匿名函数用法

Delphi mediaplayer1 设置音量

Delphi 清空文件夹

字符串截取小例子Delphi源代码

Delphi fdlocalsql使用方法

Delphi生成的webservice appdebug的程序，编译时出错

Delphi中获取光标句柄代码（包含获取当前线程id）

Delphi timage 加上滚动条方法

vclzip控件的使用

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

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