blob: 6e84a6026ba9d63248c6544e37ec9da0a7ca911d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ 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.
|
