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 tlistview按指定列排序

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别

decodedatetime：将一个tdatetime变量拆分成它的日期/时间 部分

Delphi如何判断一个combobox是否处于下拉状态

Delphi 动态设置屏幕分辨率

Delphi 中 16 进制转换为 10 进制

Delphi 如何使用findfirst搜索不同的文件类型？

Delphi的一些开发技巧和方法

Delphi image 图像清空

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

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