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编写dll(以及静态和动态方式调用)

Delphi 农历源码

Delphi 调用单元unit代码

Delphi模拟点击网页中的按钮

Delphi trayicon1如何把窗体关闭到系统托盘

Delphi 提取标签之间的字符串

Delphi源码简单的实现粘贴复制代码

Delphi获取一个窗口的所有子窗口(包括嵌套)

Delphi感染文件的例子

Delphi 使用并行库中的ttask

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...