Количество символов в Memo

[ARXangel]

Привет всем!
Подскажите как посчитать количество символов в Memo без пробелов и абзацев, мне нужно количество только букв и знаков препинания.
Заранее всем спасибо!

[Kotofff]

что-то типа так можно :

count := 0;
for i:=1 to Length(Memo1.Text) do
  if not (Memo1.Text[i] in[#10,#13,' ',',','.']) then inc(count);// in[#10,.....,'.'] - здесь перечисли те которые не надо считать

[gred]

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

что-то типа так можно :

count := 0;
for i:=1 to Length(Memo1.Text) do
  if not (Memo1.Text[i] in[#10,#13,' ',',','.']) then inc(count);// in[#10,.....,'.'] - здесь перечисли те которые не надо считать

Как же всё сложно любите делать
нельзя так

b:=Length(trim(Memo1.Text))

[mihali4]

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

Как же всё сложно любите делать
нельзя так

b:=Length(trim(Memo1.Text))

Как вы любите все упрощать...
Вы сами не пробовали загрузить текст в мемо и сделать вот так:
Label1.Caption:=IntToStr(Length(Mem o1.Text));
Label2.Caption:=IntToStr(Length(tri m(Memo1.Text))); ?
Попробуйте. И убедитесь в почти полной идентичности цифирей...

[KORN]

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

Как же всё сложно любите делать
нельзя так

b:=Length(trim(Memo1.Text))

в твоем способе вырезаются пробелы и переносы7

[Arigato]

в твоем способе вырезаются пробелы и переносы7

Вырезаются только в конце и начале текста, но не в середине.

[KORN]

пардон... шифт не сработал....

значит проверяй по символьно
const
a=' ;,'+#13;

и типа if pos(текущий символ, a)=0 then
увеличиваешь переменную