Шифрование, замена символов.

[foE]

Всем привет! Хочу попросить совета, а может и помощи.
У меня имеется задача в которой требуется заменить в тексте(текст большой) одни символы на другие.
Т.е. имеется текст и в нем я заменяю букву 'д' на 'ж'; 'в' на 'д'; 'о' на 'ы', к примеру:

"В тот же день, но уже вечером, часу в седьмом, Раскольников подходил к квартире"
И в итоге должно получится
"д тыт же жень, ны уже дечерым, часу д сежьмым, Раскыльникыд пыжхыдил к кдартире"

С помощью каких функций и процедур это можно сделать, а то совсем ничего в голову не лезет??И если можно маленькие примерчики, мне просто так понятнее. Заранее спасибо...

P.S. Текст я читаю из файла и потом перемещаю его Memo-поле. Текст является нормализованным т.е., он переведет в верхний регистр( все буквы заглавные) и отсутствуют знаки препинания и спец. символы.

Вот код того что есть, до данной проблемы -Текст является нормализованным т.е., он переведет в верхний регистр( все буквы заглавные) и отсутствуют знаки препинания и спец. символы.

// Z33
procedure TForm2.Button2Click(Sender: TObject);
var
  s,st,buf,zam,zamena:string[255];
  f: TextFile;
  i:integer;
  options       : TReplaceFlags;
  begin
    options := [rfReplaceAll, rfIgnoreCase];
    fName := Edit1.Text; AssignFile(f, fName);
    Reset(f); // открыть для чтения {$I+}
    while not EOF(f) do begin
    readln(f, buf); // прочитать строку из файла
    st:=buf;
    st:=AnsiUpperCase(st);
    zam:=st;
      for I := 0 to 127  do
        begin
        s:=chr(i);
        zam:=AnsiReplaceStr (zam, s, '');
        zamena:=zam;
        end;
        Memo2.Lines.add(zamena);
                          end;
    CloseFile(f);
  end;

[Stilet]

Ну сделай массив:

 a:array[1..3,1..2] of char=(('д','ж'),('в','д'),('о','ы'));

А потом в цикле проходи:

for i:=1 to length(st) do
 for k:=1 to 3 do
  if st[i]=a[k,1] then begin st[i]:=a[k,2]; break;end;

Код с потолка. так что пробуй.

[Ntlegend]

Есть хорошая функцыя StringReplace.. почему бы не использовать ее??

var ws:WideString;
begin
 ws:=Memo1.Text;
 StringReplace(ws, 'Д', 'Ж', [rfReplaseAll]);
 StringReplace(ws, 'В', 'Д', [rfReplaseAll]);
 StringReplace(ws, 'О', 'Ы', [rfReplaseAll]);
//имено большие, потому что ты перевел все в верхний регистр
 Memo1.Text:=ws;

вроде бы както так..

[foE]

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

Есть хорошая функцыя StringReplace.. почему бы не использовать ее??

var ws:WideString;
begin
 ws:=Memo1.Text;
 StringReplace(ws, 'Д', 'Ж', [rfReplaseAll]);
 StringReplace(ws, 'В', 'Д', [rfReplaseAll]);
 StringReplace(ws, 'О', 'Ы', [rfReplaseAll]);
//имено большие, потому что ты перевел все в верхний регистр
 Memo1.Text:=ws;

вроде бы както так..

Все бы хорошо, но есть одно НО- мне требуется вводить эту последовательность, ту чем будем заменять,
т.е. я ее могу вести и 'Ж' 'Д' 'Ы' и 'Д' 'Ы' 'Ж' и 'Ы' 'Ж' 'Д' ,а таких букв 32 штуки (все буквы кроме Ё) -
Эту последовательность я перепишу в поле Edit или поле Memo или сразу буду брать из файла -это я смогу сделать. Я не могу придумать сам процесс замены.
Конечно можно сделать так:
StringReplace(ws, 'Д', 'Ж', [rfReplaseAll]);
StringReplace(ws, 'В', 'Д', [rfReplaseAll]);
StringReplace(ws, 'О', 'Ы', [rfReplaseAll]);
...
StringReplace(ws, 'Р', 'В', [rfReplaseAll]);
и таких строчек будет 32 и вместо букв Ж Д Ы .... В сделать 32 поле (Edit .Text) Но это уже будет какое-то извените извращение

[Stilet]

Но это уже будет какое-то извените извращение

И что мешает сделать это в цикле, а буквы в массив пихнуть?