Как из memo1 переписать текст в memo2 изменяя код каждого символа на 3 ch:=chr(ord(ch)+3))

[xpams]

Как из memo1 переписать текст в memo2 изменяя код каждого символа на 3

{ch:=chr(ord(ch)+3))}

[Serge_Bliznykov]

технически это очень просто.
Но, как абсолютно правильно заметил в теме "Построчное считывание информации memo " Аватар

Сообщение от Аватар

уверены что все символы отображаемыми будут?

Дело в том, что Memo (как и другие визуальные компоненты) не предназначен для отображения НЕПЕЧАТНЫХ символов. Поэтому можете получить (в зависимости от содержимого исходного мемо) ряд глюков и косяков!

а формально ответ на вашу просьбу такой:

Memo2.Lines.Clear; {очистили Memo2}
for i:=0 to Memo1.Lines.Count-1 do begin
   s := Memo1.Lines[i];  {взяли очередную строку из Memo1}
   for j:=1 to Length(s) do {цикл по всем символам строки}
     s[j] := chr(ord(s[j])+3); {сдвинули символы на 3}
   Memo2.Lines.Append(s); {добавили полученную строку в Memo2 }
end;

[xpams]

Спасибо!!1