delphi - 在Delphi中为WideString使用WrapText

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个字节来表示的示例:

最佳答案

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

备用下载站点是here。