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 comobj调用wmplayer播放音乐

Delphi 脉搏波9808血压计读取测试程序

Delphi 系统托盘组件 ttrayicon 简介

Delphi 在win32程序中显示dos调试窗口

Delphi 快速删除非空文件夹

Delphi memo1 自定义位置插入

Delphi wm_copydata的应用

Delphi中判断字符串是否为数字

Delphi实现阿里云印刷文字识别_身份证识别

Delphi 如何删除动态数组的指定元素

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

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