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实现双击左ctrl键调用记事本

Delphi 字符串处理单元

Delphi android实例-退出程序(xe8+小米2)

Delphi tchart使用经验小结

Delphi android应用程序的关闭退出

Delphi资源文件的详细使用方法

Delphi 软关闭显示器的代码

Delphi tclientdataset用法详解

Delphi opendialog文件多选

Delphi 利用 showmessage(syserrormessage(getlasterror));得到不反馈的错误信息

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

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