Цитата:
Сообщение от Alex Cones
Потому и делаем дублирование:
1) Копируем содержимое файла в Peremennaya1
2) Pos`ом ищем первое попадание
3) Копируем эту строку\слово туда, куда надо
4) Удаляем в Peremennay1 эту строку
5) Идем на шаг 2, пока пос не покажет "0".
А чтоб искал только с начала следующей строки - Можно попробовать Pos(#13+'Ша',S);
|
Не самый оптимальный способ, но подойдет
Если руками прописывать, то выбросить удаление (из всего описанного - самый "тормознутый" процесс) и остальное можно оставить. Но возражений от топикстартера нету, значит все ОК.