Дополнить код Delphi XE - добавить рандомную замену текста по словарю

[kladsss]

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

Пример в Memo (Настройки):

Test|Замена1|Замена2|Замена3

Test2|Замена1|Замена2|Замена3

После чего, программа ищет слова Test и Test2 в текстовых файлах и заменяет их рандомно.

Что я сделал: получилось вот так - слово для замены ввожу в Edit2 и замену этого слова в Edit3. Ну а в Edit1 путь к каталогу с файлами.

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.Lins.Add('Отображение лога: ' + path + sr.Name);
          ScanDir(path + sr.Name);
        end
        else
        begin
                s:=tstringlist.create;
                s.LoadFromFile(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;

[min@y™]

Чо за срань ты там рожаешь с этими заменами шыла на мыло?

[kladsss]

Сообщение от min@y™

Чо за срань ты там рожаешь с этими заменами шыла на мыло?

В документах нужно заменить много слов. То есть каждое слово на список рандомных слов.

[min@y™]

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

В документах нужно заменить много слов. То есть каждое слово на список рандомных слов.

Зачем?

[kladsss]

Сообщение от min@y™

Зачем?

На работе заставляют переделывать отчеты и в ручном режиме это очень долго. Если к примеру документов 30 то программой это обработать за 5 секунд а в ручном режиме это целая вечность.

[min@y™]

Странные документы, которые надо рандомными данными набивать.

[kladsss]

Сообщение от min@y™

Странные документы, которые надо рандомными данными набивать.

Ну как есть, а что делать. Мне каждый день приходиться работать с документами и гемор страшный.
В решении этой задачи сможете помочь (исправить код, он работает, просто добавить то что выше) ?

[min@y™]

Я не читаю чужой код, если там больше 8 строк.
Мне проще с нуля написать.
Спасибо, нет. Я не буду тратить время на глупую бесполезную задачу.
Кому могут понадобиться документы, забитые рандомными данными? Что за бред?

[kladsss]

Сообщение от min@y™

Я не читаю чужой код, если там больше 8 строк.
Мне проще с нуля написать.
Спасибо, нет. Я не буду тратить время на глупую бесполезную задачу.
Кому могут понадобиться документы, забитые рандомными данными? Что за бред?

Ничего страшного. Буду сам долбить и добьюсь результата.

[evg_m]

ПРИМЕР возможного кода по случайной замене

r:=TStringList.Create;
r.Delimiter:='|';
r.DelimiterText:='Test|Замена1|Замена2|Замена3';

n:=1+ Random(r.Count-2); //вначале(при запуске программы) нужен еще Randomize;
result:=StringReplace(text, r.Strings[0], r.Strings[n], []);

НО!!! StringReplace не говорит была(или нет) сделана замена.
обратите свое внимание на Pos (PosEx). + Delete Insert or Copy
И(или) обрабатывайте строки текста по отдельности

r:=s.Strings[j];  
// обработка (замена) в одной строке текста
s.Strings[j]:=r;