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̧̊

    • 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.

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

    上一篇: Trie及其子序列

    下一篇: WrapText在Delphi中用于WideString