Тема: Замена
Показать сообщение отдельно
  #7  
Старый 10.03.2012, 23:56
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Создай 2 потока, к примеру TMemoryStream, в первый грузишь оригинальный текст, во-второй готовый. Ищешь первое вхождение искомой замены, нашёл - копируешь во-второй от начала потока до вхождения. Ищешь конец искомой замены и, если больше искать нечего копируешь во-второй поток от второго вхождения до конца, иначе повторяешь всё по-новой.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием