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;


 
   

SysUtils 单元下的公用函数目录

---