WrapText for WideString in Delphi

问题

Delphi has a WrapText function:

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

Now i need a version that handles WideStrings:

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

Is any such function written somewhere already?

WARNING: Not every wide string character is 2-bytes

Which is why i'm afraid to write it

Update: Example of a character that takes more than 2-bytes to represent:

Capital Latin W with ring and cedilla

• Bytes: 57 00 66 03 27 03
• Rendered in Chrome 17:
  

• Rendered in Internet Explorer 9:
  

• Rendered in Notepad using Segoe UI:
  

• Rendered in Notepad using Consolas:
  

• Rendered in your browser in sans-serif font: W̧̊
• Rendered in your browser in monospaced font: W̧̊

回答1:

As mentioned by kobik, TNT UnicodeControls has a unit TntSysUtils which includes following function :

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

Alternate download site is here.

来源：https://stackoverflow.com/questions/9703491/wraptext-for-widestring-in-delphi