Подсчет видимых символов в memo

@SashaRasha · Регистрация: 08.10.2008

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

Всем привет!
Имеется текст в компоненте memo, в котором нужно подсчитать количество строк, количество пробелов и общее количество видимых символов.
С количеством строк проблем нет. Считается легко, с помощью свойства count. Пробелы считаются следующим образом:

Delphi
1
2
for i := 0 to length(memo1.text) do
     if memo1.text[i]=#32 then inc(c);

А вот с символами беда выходит. К примеру код

Delphi
1
v:= length(memo1.Text)

присваивает переменной v число большее по значению чем реальное количество символов. Из курса Турбо Паскаль я помню что текст имеет невидимые символы конца строки(#13) и перехода на новую строку(#10), а так же символ конца текста(#26). Но как это дело устроено в дэлфи я не знаю. Делая попытки подсчета я понял что к каждой строке добавляется по символу(видимо это и есть #13), но код

Delphi
1
kolsim:=v-memo1.lines.count

ожидаемого результата не дает. Как и

Delphi
1
kolsim:=v-memo1.lines.count-1{под единицей подразумевается символ конца текста(#26)}

Подскажите пожалуйста как устроен текст в memo и есть ли какие-нибудь отличные от length функции, которые выводят значение именно видимых символов?

Verevkin · 21.05.2020, 09:20

Какой некрофил вытащил тему из гроба?
Кол-во "видимых" символов в тексте:

Delphi
1
2
3
4
5
6
function foo(const text: string): uint32;
begin
  result:= 0;
  for var ch in text do
    if (ch > #32) inc(result);
end;

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .