WrapText cho WideString trong Delphi

Question

Delphi có chức năng WrapText:

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

Bây giờ tôi cần một phiên bản để xử lý WideStrings:

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

là bất kỳ chức năng như viết ở đâu đó chưa?

Chú ý: Không phải mọi nhân vật chuỗi rộng là 2-byte

Đó là lý do tại sao tôi sợ để viết nó

Cập nhật: Ví dụ về một nhân vật mà phải mất hơn 2 -byte để đại diện:

Capital Latin W with ring and cedilla

• Bytes: 57 00 66 03 27 03
• rendered trong Chrome 17:
• biểu hiện trong Internet Explorer 9:
• rendered trong Notepad sử dụng Segoe UI:
• rendered trong Notepad sử dụng Consolas :
• Hiển thị trong trình duyệt của bạn theo phông chữ sans-serif: W̧̊
• Hiển thị trong trình duyệt của bạn theo kiểu monospaced phông chữ: W̧̊

Answer 1

Như đã đề cập bởi kobik, TNT UnicodeControls có một đơn vị TntSysUtils trong đó bao gồm sau chức năng:

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

thay thế trang web tải về là here.