Подсчет символов в Memo1

@Artimon · Регистрация: 17.01.2014

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

Ребята подскажите пожалуйста, как мне в Memo сделать чтобы велся подсчет символов но без пробелов. Вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var
   i, k:integer;
  s:string;
begin
s:=0;
if Length(Memo1.SelText)>0 then
begin
for i:=0 to length(Memo1.SelText) do
if Memo1.SelText[i]='' then
s:=[i]=s+1;
s:=0;
exit;
end;
for i:=0 to Memo1.Lines.Count do
for k:=1 to Length(Memo1.Lines[i]) do
if Memo1.Lines[i][j]='' then
s:=s+1
Label1.Caption:=IntToStr(Length(Memo1.Lines.Text)*Memo1.Lines.Count);
i:=Length(s);
end;
end.

@Artimon · 18.01.2014, 20:12 **[ТС]**

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

Enter в таблице имеет код #13, значит заменяй этот символ.
А вообще то, у меня сегодня днюха, попробуй сам разобраться.

А спасибо я как раз таки этот код нашел в одной программке только вот сейчас начал разбираться. Кстати тебя с днем рождения, желаю тебе всего наилучшего в этот праздник. Спасибо что помогаешь.

@esculap_ra · 18.01.2014, 20:27

Ладно, не заморачивайся - получай мемо через

Delphi
1
trim(memo.text)

Функция сама уберет служебные символы. Важно - тебе стало интересно, и это радует!

Добавлено через 13 минут
А делфийцы всегда помогают друг другу - такой закон! По секрету: освоив делфи, ты быстро вникнешь и в php. Это я сужу по себе: собирался изучить пхп, присел на делфи, а потом - бац, а я и в пхп "дока". Иногда, правда, при резких переходах с десктопа на вэб, поначалу ошибаюсь с операторами присвоения/сравнения (в делфи :=, в пхр =; в делфи =, в пхп ==). Если что, скайп такой же, как и мой ник здесь.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .