Исключить #13#10 из Length

[_Dmitry]

Сообщение от BOBAH13

На самом деле, будет неверно Если последняя строка не переведена т.е. заканчивается #0, а не #13#10#0. Так что Перебором каждой строки, думаю будет самым верным.

Продумано. Для этого и проверяется условие

      if Lines.Count = 0 then L:=0 else   
        if Text[Length(Text)] <> #10 then L:=L+2;