WrapText在Delphi中用于WideString

 

Delphi有一个WrapText函数： 

function WrapText(const Line, BreakStr: string; const BreakChars: TSysCharSet; MaxCol: Integer): string;
function WrapText(const Line: string; MaxCol: Integer): string;

现在我需要一个处理WideStrings的版本： 

function WrapTextW(const Line: WideString; MaxCol: Integer): WideString;

任何这样的函数已经写在某个地方了吗？

警告：并非每个宽字符串都是2个字节

这就是为什么我害怕写它

更新 ：需要超过2个字节来表示的字符的示例：

与圆环和cedilla的资本拉丁文的W

  • 字节：57 00 66 03 27 03
  • 在Chrome 17中呈现：
  • 在Internet Explorer 9中呈现：
  • 使用Segoe UI在记事本中呈现：
  • 在记事本中使用Consolas呈现：
  • 在浏览器中以无衬线字体呈现：W̧̊
  • 在您的浏览器中以monospaced字体呈现： W̧̊

    • 正如kobik提到的，TNT UnicodeControls有一个TntSysUtils单元，其中包含以下功能： 

    function WideWrapText(const Line, BreakStr: WideString; const BreakChars: TSysCharSet;
  MaxCol: Integer): WideString; overload;
function WideWrapText(const Line: WideString; MaxCol: Integer): WideString; overload;

    备用下载网站在这里。

    链接地址: http://www.djcxy.com/p/10555.html

    上一篇: WrapText for WideString in Delphi

    下一篇: PHP code is visible on website