Все маленькие буквы в тексте заменить символом "#"

@dupple · Регистрация: 29.09.2019

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

Добрый день! Никак не могу понять, в чём ошибка. В Memo выводится тот же самый первоначальный текст, а не изменённый. Например, в Edit1 было ЧайНиК, и в Memo вывелось тоже ЧайНиК, а не Ч##Н#К, как предполагается. Сам код приведён ниже:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 const
  small=['а'..'я'];
var
    text: string;
    I:  integer;
begin
Memo1.Clear;
text:=Edit1.Text;
for I := 1 to length(text) do
begin
    if text[i] in small then
    text[i]:='#';
end;
Memo1.Lines.Add(text);
end;

@AzAtom · 28.12.2019, 12:54

dupple, код и слово "ЧайНиК" скопировал из темы. Всё работает.

@UR1004SWL · 28.12.2019, 13:22

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

Всё работает

В семёрке да работает, а выше нет. Вот так пробуйте

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
  small =['a'..'z'];
var
  text: string;
  I: integer;
begin
  Memo1.Clear;
  text := Edit1.Text;
  for I := 1 to length(text) do
  begin
    case text[I] of
      'а'..'я':
        text[I] := '#';
      'ё':
        text[I] := '#';
    end;
  end;
  Memo1.Lines.Add(text);
end;

@AzAtom · 28.12.2019, 13:54

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

В семёрке да работает, а выше нет.

Действительно. В виде костыля можно так объявить переменную:

Delphi
1
2
var
    text: ansistring;

Так работает в XE3.

@dupple · 28.12.2019, 15:17 **[ТС]**

Спасибо всем! ansistring реально помогло!

@UR1004SWL · 28.12.2019, 17:37

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

ansistring реально помогло

Для полного счастья надо бы добавить буковку 'ё'

Delphi
1
2
const
  small = ['а'..'я', 'ё'];

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@AzAtom Модератор 4149 / 2360 / 812 Регистрация: 15.11.2015 Сообщений: 9,457
	28.12.2019, 12:54
	dupple, код и слово "ЧайНиК" скопировал из темы. Всё работает. Изображения 1

@dupple 0 / 0 / 0 Регистрация: 29.09.2019 Сообщений: 24
	28.12.2019, 15:17 [ТС]
	Спасибо всем! ansistring реально помогло! 0

Все маленькие буквы в тексте заменить символом "#"

Решение