[Taras2020]

Можете помочь добавить рандомную замену + Что бы слова для замены вводились в memo:
К примеру в memo ввожу слово Test заменить на а слово Test2 заменить на и между каждым словом разделитель |.

Пример в Memo:
Test|Замена1|Замена2|Замена3
Test2|Замена1|Замена2|Замена3

Сейчас, в этом коде, нужно вводить слово для замены в Edit2 и одну замену этого слова в Edit3

Вот мой код, где исправить:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

procedure ScanDir(path : string); var          sr : TSearchRec;   FileAttrs : Integer;           s : tstringlist;        a, b :  string; begin   path := IncludeTrailingPathDelimiter(path);   if FindFirst(path + '*.*', faAnyFile, sr) = 0 then  begin     repeat       if (sr.Name <> '.') and (sr.Name <> '..') then         if (sr.Attr and faDirectory) = faDirectory then         begin           Form1.Memo1.Lines.Add('Отображение лога: ' + path + sr.Name);           ScanDir(path + sr.Name);         end         else         begin                 s:=tstringlist.create;                 s.LoadFromFile(path + sr.Name);                 s.text:=StringReplace(s.Text,Form1.Edit2.Text,Form1.Edit3.Text,[rfreplaceall]); //                 s.SaveToFile(path + sr.Name);                 FreeAndNil(s);         end;     until FindNext(sr) <> 0;     FindClose(sr);   end; end;    procedure TForm1.Button1Click(Sender: TObject); var dirName: string; begin   if SelectDirectory('Выберите дерикторию','C:\Users\kk\Desktop\Ttt\', dirName) then // тут меняет слово с edit2 на то что в Edit 3   Edit1.Text:= (dirName); end;    procedure TForm1.Button2Click(Sender: TObject); begin ScanDir(Edit1.Text+'\'); // тут путь к папке end;