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

[Febreze]

И снова здравствуйте.
Есть поле Memo, сумма введенных символов которого отображается в StatusBar'e. Заметил что при переводе строки добавляется 2 символа, я так понимаю это #13#10. Как поставить условие чтобы при появлении этих символов сумма уменьшалась на 2 единицы.
Теоретически я думал что-то сделать подобное, только с Delphi-орфографией проблемы: if CurrentMemo.Text=#13#10 then MainForm.StatusBar1.Panels[1].Text - 2;

[alexBlack]

Лучше посчитать символы всех строк в Memo

var C:integer;
...
C := 0;
for i:=0 to Memo1.Lines.count-1 do begin
   C := C + length(Memo1.Lines[i])
end;

[Баламут]

Честно говоря с налету не получилось воспроизвести эффект. Может исходник выложишь?

[_Dmitry]

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

Лучше посчитать символы всех строк в Memo

Зачем? Символами #13#10 заканчиваются все строки, поэтому из длины текста можно вычесть (количество строк)*2

procedure TMainForm.CurrentMemoChange(Sender: TObject);
var
  L: integer;
begin
  with CurrentMemo do
    begin
      L:=Length(Text)-Lines.Count*2;
      if Lines.Count = 0 then L:=0 else
        if Text[Length(Text)] <> #10 then L:=L+2;
    end;
  MainForm.StatusBar1.Panels[1].Text:=IntToStr(L);
end;

[Febreze]

1. Что я не понял зачем количество строк удалять на 2
2. Считать пустые строки, которые являются разделителем абзацев, считать тоже не надо. Только текст.

[puporev]

Что я не понял зачем

Можно подумать, тебя кто-то понял. Напиши конкретно задачу и покажи свой код, а иначе нечего засорять эфир.

[Febreze]

Да в принципе и выкладывать нечего. Функция Length считает количество символов в поле Memo и это отображается где-нибудь (не важно):

(IntToStr(Length(CurrentMemo.Text)) )

Но функция считает также спец.сиволы "конец коретки" и "перевод строки". Мне не нужно их считать. Поэтому я и спрашивал, каким образом поставить условие, чтобы при встрече функцией Length таких символов, она их не суммировала.

[_Dmitry]

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

1. Что я не понял зачем количество строк удалять на 2
2. Считать пустые строки, которые являются разделителем абзацев, считать тоже не надо. Только текст.

Программа (см. пост #4) и считает только символы текста.
В Memo каждая строка заканчивается символами #13#10 (этих символов 2). Если у вас 50 строк, то "лишних" символов будет 100=50*2. Вот эту цифру и предлагается вычесть из общей длины текста.

[Febreze]

Ой, точно...


Преогромное спасибо!

[BOBAH13]

На самом деле,

Если у вас 50 строк, то "лишних" символов будет 100=50*2.

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