Rev 992 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 992 | Rev 993 | ||
---|---|---|---|
Line 533... | Line 533... | ||
533 | while (j >= 0) do |
533 | while (j >= 0) do |
534 | begin |
534 | begin |
535 | if (s[j]=#13) or (s[j]=#10) then break; |
535 | if (s[j]=#13) or (s[j]=#10) then break; |
536 | Dec(j); |
536 | Dec(j); |
537 | end; |
537 | end; |
- | 538 | if j < 0 then j := 0; |
|
538 | j := Length(s)-2(*CRLF*)-j; |
539 | j := Length(s)-2(*CRLF*)-j; |
- | 540 | if Copy(s,Length(s),1) <> #10 then j := j + 1; |
|
- | 541 | j := j mod width; |
|
- | 542 | ||
539 | x := initX + j; |
543 | x := initX + j; |
- | 544 | if Copy(s,Length(s),1) = #10 then |
|
540 | s := Copy(s, 1, Length(s)-1); (* Remove #10 now. #13 will be removed below *) |
545 | s := Copy(s, 1, Length(s)-1); (* Remove #10 now. #13 will be removed below *) |
541 | end |
546 | end |
542 | else |
547 | else |
543 | begin |
548 | begin |
544 | Dec(x); |
549 | Dec(x); |