t_id
1425
t_adddate
2004/12/27
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950842514 | 1015804 | True | False | Successfully run |
Record count: 1
{ 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.