Нахождение символа в строке и перенос

[sariman]

Здравствуйте, подскажите пожалуйста, как реализовать перенос строки в memo если присутствует в строке символ '<', на примере прикрепленная картинка, а мне нужно, чтобы было что-то типо этого:

> 12:13:20 [INFO] Starting CraftBukkit RUS version 1.2.5
> 12:13:20 [INFO] Loading properties
> 12:13:20 [INFO] Starting CraftBukkit RUS on *:25565
> 12:13:20 [WARNING] **** SERVER IS RUNNING IN OFFLINE/INSECURE MODE!
> 12:13:20 [WARNING] The server will make no attempt to authenticate usernames. Beware.
> 12:13:20 [WARNING] While this makes the game possible to play without internet access, it also opens up the ability for hackers to connect with any username they choose.
и т.д

Заранее благодарен.

[Аватар]

Парсинг текста и перед каждым найденным > вставить #13#10

[JIeIIIa]

Использовать метод Memo1.Lines.Insert(). Просматриваете каждую строку: то что до символ '<' оставляете без изменений. Остальное нужно вставить после текущей строки.

[sariman]

Сообщение от Аватар

Парсинг текста и перед каждым найденным > вставить #13#10

Пробовал, то же что и было

[sariman]

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

Использовать метод Memo1.Lines.Insert(). Просматриваете каждую строку: то что до символ '<' оставляете без изменений. Остальное нужно вставить после текущей строки.

Попробую когда приду

[Аватар]

Пробовал, то же что и было

Значит не правильно пробовал

[Serge_Bliznykov]

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

Пробовал, то же что и было

плохо, значит, пробовали.
показывайте свой код!

ну, или попробуйте так написать:

  Memo1.Text := StringReplace(Memo1.Text, '>', #13#10'>', [rfReplaceAll]);

[sariman]

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

плохо, значит, пробовали.
показывайте свой код!

ну, или попробуйте так написать:

  Memo1.Text := StringReplace(Memo1.Text, '>', #13#10'>', [rfReplaceAll]);

Сделал как вы, результат на картинке
Программу прикрепил