|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.11.2021, 18:54 | #1 |
Форумчанин
Регистрация: 28.09.2010
Сообщений: 246
|
Посчитать количество русских букв в Memo (Delphi XE2)
Нужно посчитать количество букв в Memo. Я эти символы помечаю так:
Код:
Пробовал разные варианты: Код:
Код:
Как я понял проблема в самом Delphi XE2. Но должен же быть способ как-то решить эту задачу. Надеюсь на вашу помощь.
Смотреть фильмы HD Фильмы для планшетов
|
18.11.2021, 20:09 | #2 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,544
|
Множества в Паскале вообще довольно ущербная конструкция, так как элементы множества это байты (ну или ASCII-коды символов). В случае с юникодом, русские буквы во множество не загнать.
Можно создать строку с нужными символами: const bukv = 'abcd...АБВГ...'; // придется перечислять вручную все буквы. А поиск буквы делать с помощью функции pos. E-Mail: arigato.freelance@gmail.com
Последний раз редактировалось Arigato; 18.11.2021 в 21:18. |
18.11.2021, 20:33 | #3 | |
Форумчанин
Регистрация: 28.09.2010
Сообщений: 246
|
Цитата:
Ну и для примера, вот мой код: Код:
Смотреть фильмы HD Фильмы для планшетов
|
|
18.11.2021, 21:12 | #4 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,544
|
Можно StrScan вместо множества заюзать.
Код:
E-Mail: arigato.freelance@gmail.com
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Посчитать количество слов из трёх букв в данной строке. | ALEXandr20333 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 29.06.2014 19:05 |
Посчитать количество латинский букв в строке | lookser | PHP | 14 | 25.04.2013 19:54 |
delphi дублирование русских букв string | BanzoO | Помощь студентам | 2 | 28.09.2011 21:52 |
Pascal.найти количество русских букв | Мaрина | Помощь студентам | 5 | 28.06.2011 16:29 |
Ввод русских букв в Delphi | Аццкий Нуп | Помощь студентам | 3 | 25.06.2008 23:27 |