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

@TpakT0p · Регистрация: 02.05.2018

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

Добрый день! В программе для Android, написанной в Delphi 10.2.3, требуется обработать строку, а именно - символ "А" заменить на "/-". Строка берётся из Memo1, а после обработки отправляется в Memo2 (возможно, это важно).

Delphi

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. Здесь же получается "/-\/-\А/-\А".
Если ввести "ААА", выводится "/-\/-\А", а если ввести "А", выводится тоже "А".
Что с этим можно сделать?

@D1973 · 20.07.2018, 17:57

А так?

Delphi

1	Memo2.Text := StringReplace(Memo1.Lines[0], 'A', '/-\', [rfReplaceAll]);

@TpakT0p · 20.07.2018, 18:55 **[ТС]**

Так работает. Спасибо большое!

@TpakT0p 0 / 0 / 0 Регистрация: 02.05.2018 Сообщений: 8
	20.07.2018, 18:55 [ТС]	3
	Так работает. Спасибо большое! 0

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

Решение