Рандомизация текста по шаблону

[Pearl777]

Здравствуйте! Подскажите как правильно сделать рандомизацию текста по шаблону.

У меня есть вот такой шаблон: [Здравствуйте | Привет | Хай] *UserName*. [Как дела? | Что делаешь? | Как учеба]. (Текст может быть любым).

Как это текст слепить в кучу, чтобы получило что-то такое: Привет *UserName*. Как дела?

[Pearl777]

Вверх!!

Помощь все ещё нужна.

[Serge_Bliznykov]

во-первых,
посмотрите тему: Рандомизация текста

во-вторых, если вложенные варианты в шаблоне не допускаются, то задачка совсем не сложная - парсите все варианты в список, выбирайте случайное значение из списка.

[Человек_Борща]

Взять текст с [ и до ].
Исключить [] из выбранной строки.
Разбить остаток с помощью TStringList.Delimitedtext,Delimiter :=|''; и триммировать Delimitedtext(Убрать лишние пробелы по краям.)
Случайно выбрать слово из списка.
Удалить текст, начиная с символа после [ и до ] включительно, заменить [ на выбранное рандомное слово.

все.

И так далее...

[Pearl777]

Сейчас попробую.
Спасибо всем!

[Pearl777]

Сделал таким способом. Вроде бы все работает, но если текст [Как дела? | ...], то есть с пробелом, то этот текст делится на две строки:
Как
Дела?

str := TStringList.Create;
Text := memo1.Text;
ot := Pars('[', Text, ']');
Str.Text := ot;
Str.Delimiter := '|';
Str.DelimitedText := str.Text;
text := StringReplace(text, '['+ot+']', str[Random(str.Count)], [rfIgnoreCase]);
str.Free;

[Человек_Борща]

Str.DelimitedText := str.Text;

Сюда вроде как ot надо вставлять.

[Pearl777]

Сообщение от Человек_Борща

Сюда вроде как ot надо вставлять.

Поставил, но на проблему это никак не повлияло.

[Pearl777]

str := TStringList.Create;
Text := memo1.Text;
ot := Pars('[', Text, ']');
str.Text := StringReplace(ot, '|', #13#10, [rfReplaceAll, rfIgnoreCase]);
text := StringReplace(text, '['+ot+']', str[Random(str.Count)], [rfIgnoreCase]);
str.Free;

Сделал таким образом. Теперь все отлично работает.

Всем спасибо за помощь!!