Подсчёт символов в строке

@daming · Регистрация: 23.11.2012

Author24 — интернет-сервис помощи студентам

Стоит задача посчитать все символы в строке Edit кроме пробелов.
имею такой код:

Delphi

N:=length(edit1.text);
 Label2.Caption:='В тексте ';
 if N>20 then N:=N mod 10;
 case N of
 1:S:=' символ';
 2..4:S:=' символа';
 0,5..20:S:=' символов';
 end;
 Label2.Caption:=Label2.Caption+
  IntToStr(Length(Edit1.Text))+S;

как сделать чтобы пробелы не считались?

@volvo · 27.03.2013, 18:19

Delphi

1	N := Length(StringReplace(Edit1.Text, ' ', '', [rfReplaceAll]));

@daming · 27.03.2013, 18:21 **[ТС]**

всё равно считает с пробелами

@droider · 27.03.2013, 18:26

Delphi

const symb=['.', ',', ':', ';', '!', '?', '-',  #9, #10, #13, '/','\']; //множество символов 
var                                                                   //кроме пробела
str:string;
i, n:integer;
begin
str :=Edit1.Text;
n :=0;
for i :=1 to length(str) do
begin
if s[i] in symb then
inc(n); // считаем
end;
//выводим...
end;

@volvo · 27.03.2013, 18:27

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

всё равно считает с пробелами

Да что ты? Прямо вот у всех пробелы убирает, а у тебя - нет? Ты избранный, прямо! Убедись:

@daming · 27.03.2013, 18:32 **[ТС]**

я всё понял и всё получилось, большое спасибо !

Добавлено через 37 секунд

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

Да что ты? Прямо вот у всех пробелы убирает, а у тебя - нет? Ты избранный, прямо!

просто проблема была в последней строчке я там выводил саму функцию а надо было N !

Добавлено через 4 минуты

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

IntToStr(Length(Edit1.Text))+S;

это меня подвело

@daming 0 / 0 / 0 Регистрация: 23.11.2012 Сообщений: 10
	27.03.2013, 18:21 [ТС]	3
	всё равно считает с пробелами 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	27.03.2013, 18:27	5
	Сообщение от daming всё равно считает с пробелами Да что ты? Прямо вот у всех пробелы убирает, а у тебя - нет? Ты избранный, прямо! Убедись: Миниатюры 0

@daming 0 / 0 / 0 Регистрация: 23.11.2012 Сообщений: 10
	27.03.2013, 18:32 [ТС]	6
	я всё понял и всё получилось, большое спасибо ! Добавлено через 37 секунд Сообщение от UI Да что ты? Прямо вот у всех пробелы убирает, а у тебя - нет? Ты избранный, прямо! просто проблема была в последней строчке я там выводил саму функцию а надо было N ! Добавлено через 4 минуты Сообщение от daming IntToStr(Length(Edit1.Text))+S; это меня подвело 0