Delphi中的WrapText for WideString

Question

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字节。 所以我不敢写

Update：使用2字节以上的字符表示的示例：

大写拉丁文W配环和雪松

• 字节: 57 00 66 03 27 03
• 在Chrome 17中呈现：

​

• 在Internet Explorer 9中呈现：

​

• 使用Segoe在记事本中呈现：

​

• 使用Consolas在记事本中呈现：

​

• 在浏览器中以sans-serif字体呈现: W̧̊
• 在浏览器中以monospaced字体呈现：W̧̊

Answer 1

正如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;

备用下载站点是这里。