Subversion Repositories oidplus

Rev

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);