你的Delphi社区

函数类别：
字符串操作

函数名称：
WrapText

函数声明：
function delphi.com/topic_517296_6353.htm">WrapText (const Line, BreakStr: string; const BreakChars: TSysCharSet; MaxCol: Integer): string; overload;function WrapText(const Line: string; MaxCol: Integer = 45): string; overload; $[SysUtils.pas

功能：
返回对字符串自动换行

说明：
Result := WrapText(Line, sLineBreak, [' ', '-', #9], MaxCol);

例子：
Memo1.Text := WrapText(Memo2.Text, SpinEdit1.value);

参考：
function SysUtils.CharLength;function SysUtils.CompareText