Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: FireMonkey
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
TpakT0p
0 / 0 / 0
Регистрация: 02.05.2018
Сообщений: 5
1

Обработка строки

20.07.2018, 17:40. Просмотров 703. Ответов 2
Метки нет (Все метки)

Добрый день! В программе для Android, написанной в Delphi 10.2.3, требуется обработать строку, а именно - символ "А" заменить на "/-". Строка берётся из Memo1, а после обработки отправляется в Memo2 (возможно, это важно).
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var
  j : Integer;
  s : String;
begin
  memo2.Text := '';
  s := memo1.Lines[0];
  j := 1;
 
  while j <= Length(s) do
      case s[j] of
      'А' : begin
        Insert('/-\', s, j);    //вставка 
        Inc(j, Length('/-\'));
        Delete(s, j, 1);
      end;
    end;
 
    memo2.lines.Add(s);
  end;
end;
Если ввести строку "АААаА", она должна превратиться в "/-\/-\/-\f/-", так происходит в Delphi 7, а так же в Pascal ABC. Здесь же получается "/-\/-\А/-\А".
Если ввести "ААА", выводится "/-\/-\А", а если ввести "А", выводится тоже "А".
Что с этим можно сделать?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.07.2018, 17:40
Ответы с готовыми решениями:

Обработка xml-строки
Всем доброго дня! Пишу программку, которая будет обрабатывать ответ get...

Обработка строки. Как вырезать из имеющейся строки определенные символы
Имеется строка {текст} Как получить текст без {}?

Обработка строки. Как скопировать из строки определенный кусочек
Господа программисты. Я с очередной проблемой.... Имеем строку большой длины, а...

Обработка строки
Помогите решить задачи 1. Дана строка текста, в которой слова разделены...

Обработка строки
Помогите решить задачу: Рассматривается непустая строка, содержащая не более...

2
D1973
Модератор
3474 / 2495 / 1228
Регистрация: 21.01.2014
Сообщений: 10,372
Записей в блоге: 3
Завершенные тесты: 1
20.07.2018, 17:57 2
Лучший ответ Сообщение было отмечено TpakT0p как решение

Решение

А так?
Delphi
1
Memo2.Text := StringReplace(Memo1.Lines[0], 'A', '/-\', [rfReplaceAll]);
0
TpakT0p
0 / 0 / 0
Регистрация: 02.05.2018
Сообщений: 5
20.07.2018, 18:55  [ТС] 3
Так работает. Спасибо большое!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.07.2018, 18:55

Обработка строки
Добрый день. Народ подскажите пожалуйста как на LotusScript обработать строку...

Обработка строки
Здравствуйте, такая вот задача, нужно чтобы в созданном диалоговом окне...

Обработка строки
Здравствуйте, предо мной стоит задача. Нужно составить программу, которая...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru