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 如何将access数据库后缀名accdb改为mdb

Delphi设置光标在edit右边

解放程序员！Delphi带来app开发革命

Delphi getwindowtext - 获取窗口标题

Delphi 62进制转10进制

Delphi 倒计时对话框

Delphi判断文本文件的编码格式

Delphi使用zlib压缩和解压文件

Delphi 使用windows api(wincrypt)计算文件md5哈希，支持大文件

Delphi memo1 高亮行的范围

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

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