Посчитать кол-во символов Memo

[Noor]

Попробуй так, у меня работает

procedure TForm1.RichEdit1Change(Sender: TObject);
  begin
  StatusBar1.SimpleText := IntToStr(Length(RichEdit1.Lines.Text)-2);
  end;
end.

[Arigato]

StatusBar1.SimpleText := IntToStr(Length(RichEdit1.Lines.Text)-2);

А если будет 1 строка без перевода строки в конце, выдаст на 2 символа меньше, чем надо?

[Noor]

Опираясь на условия DimOn4Ik такой код работает и с переводом каретки и в одну строку. !!!!!
-------
Добавил ...
Не понятно ....когда символы идут в одну строку то все нормально при этом коде

procedure TForm1.RichEdit1Change(Sender: TObject);
  begin
StatusBar1.Panels.Items[0].Text := IntToStr(Length(RichEdit1.Lines.Text)-2);
  end;
end.

а когда идет перевод каретки на новую строку то нужно опять делать "-2"

[Arigato]

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

Опираясь на условия DimOn4Ik такой код работает и с переводом каретки и в одну строку.

Вы не поняли. Количество символов будет не верным, если, к примеру, у нас 5 строк. Убирается только 2 символа, а в 5 строках может быть или 4, или 5 символов перевода строки (#10#13).

[Superlotles]

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

Например так:

length(Memo1.Lines.Text) - (Memo1.Lines.Count * 2)

Есть и другие способы.

Вернее так length(Memo1.Lines.Text) - (Memo1.Lines.Count-1) * 2)

[Arigato]

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

Вернее так length(Memo1.Lines.Text) - (Memo1.Lines.Count-1) * 2)

Всё равно не правильно. Можно набрать 1 строку в MEMO: "12345" - будет результат 5 символов. А можно набрать её же, а в конце Enter, будет уже 7 символов.