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 unicode转换ansi

Delphi 实现显示文件目录大小

Delphi版pspterminateprocess驱动源码

Delphi 有授权许可的字符串拷贝函数源码

Delphi 对image字段存取图片、文件

Delphi scrollbox1滚动框鼠标滚轮

Delphi fmx 从app程序直接跳转到支付宝付款转帐页面

Delphi xe5实现通过tmemorystream将一个unicodestring写入到一个unicode文本文件

delhi 获取进程图片

Delphi 启动程序隐藏主窗体

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

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