[Страдалецъ]

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

Код:

str := StringReplace(str,'[','',[rfReplaceAll]);
str := StringReplace(str,']',#13#10,[rfReplaceAll]);
memo1.lines.text := str;

Не эффективно, зато просто.

Это явно не то, что хотел автор. Alegun дал вполне жизнеспособное решение.