Подсчет кол-ва символов в Memo,RichEdit

[Dima DDM]

Как подсчитать кол-во символов в этих компонентах ???Кажется все предельно просто

Simbols:=Length(TRichEdit(Form1.Memo1.Text);

но при нажатии Enter к этому числу прибавляются 2 символа!( Как от этого избавится или переделать функцию?

[roperd]

Попробуйте так:

Simbols:=inttostr(RichEdit1.GetTextLen+Memo1.GetTextLen);

Далее пропишите в процедурах:

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
If RichEdit1.Text<>'' then
RichEdit1.Refresh;
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
If Memo1.Text<>'' then
Memo1.Refresh;
end;

[Serge_Bliznykov]

но при нажатии Enter к этому числу прибавляются 2 символа!

ну и правильно. добавляются два символа #10#13 (они же ВК, ПС)

Как от этого избавится или переделать функцию?

если у Вас ЧЕТЫРЕ строки в Мемо,
такие, например:

1

22
333

сколько должна вернуть функция?
если 6 - то можете попробовать так:

Simbols:=Length(Form1.Memo1.Text)-(Form1.Memo1.Count-1)*2;

[Человек_Борща]

а вы вообще знаете что ваш код не работает?
Я вижу минимум 2 ошибки, из-за которых компилятор пошлёт вас далеко.
1. Length принимает только строки
2. Синтаксис неверен. Забыл ещё одну скобку вконце. Компилятор не простит.

[Человек_Борща]

а вы вообще знаете что ваш код не работает?
Я вижу минимум 2 ошибки, из-за которых компилятор пошлёт вас далеко.
1. Length принимает только строки
2. Синтаксис неверен. Забыл ещё одну скобку вконце. Компилятор не простит.

[Пепел Феникса]

Человек_Борща, если вы про код Сергея, то он полностью компилируемый и рабочий.

[Dima DDM]

Мой код тоже верен тк он ведь как-то работает)))

[Dima DDM]

Вот получилось))
Simbols:=Length(RichEdit1.Lines.Tex t)-(RichEdit1.Lines.Count-1)-1;
При чем самое удивительное что я случайно вместо умножить оставил - =) и все начал считать норм )))) тогда я поставил -1 чтобы вначале при запуске проги не показывал -1 .Вообщем я переписывая код накасячил и все стало работать еще лучше))

P.S. Кстати при открытии файла тогда показывается неверное кол-во символов =( Что с этим делать?

[Serge_Bliznykov]

не мог достучаться до сервера..

минус 1 в моей формуле вроде как и не нужно..
я бы рекомендовал попробовать такую формулу:

  Simbols := Length(Form1.Memo1.Text) - Form1.Memo1.Lines.Count*2;

p.s. сорри, если уже запоздал с ответом и проблема уже решена..