mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 17:28:05 +02:00
18 lines
593 B
ObjectPascal
18 lines
593 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 3479 }
|
|
{ Submitted by "Michalis Kamburelis" on 2004-12-26 }
|
|
{ e-mail: michalis@camelot.homedns.org }
|
|
{ Two cases where BreakStr = #10 hang WrapText.
|
|
After applying my fix all things work OK.
|
|
}
|
|
|
|
uses SysUtils;
|
|
const
|
|
Line1 = 'one blahblah blah bb b';
|
|
Line2 = 'two hhhhh sss sssss wwwww';
|
|
begin
|
|
Writeln(WrapText(Line1 + #10+ Line2, #10, [' '], 40));
|
|
Writeln(WrapText(Line1 +#13#10+ Line2, #13#10, [' '], 40));
|
|
Writeln(WrapText(Line1 + #10+ Line2, #10, [' '], 10));
|
|
Writeln(WrapText(Line1 +#13#10+ Line2, #13#10, [' '], 10));
|
|
end.
|