Консультация онлайн # 161305

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Kas Namik Kasum
Дата: 24.02.2009, 17:28 Консультация неактивна
Поступило ответов: 0
Уважаемые знатоки FreePASCAL,
здравствуйте!

Помогите с решением вопроса.
Как на FreePascal'е в открытом файле для записи <rewrite(out_file);> во фрагмент
текста, например:

" Это отличный год, чтобы наметить стратегические планы, не отвлекаясь на мелочи и
детали. На работе возможны крупные перемены, но при любых обстоятельствах вам не
стоит участвовать в подковерных играх и плести интриги – иначе к концу года окажетесь
в полном одиночестве."

можно между фразами "На работе" и "возможны крупные перемены" вставить фразу
" в бизнесе ".

Полученные изменения в виде фразы "На работе в бизнесе возможны крупные перемены",
при этом, должны сохраниться в файле (out_file).

--
Если Вы ознакомились с моим вопросом, то я был бы очень признателен Вам за отклик.

С уважением,
Namik Kas

Ответов еще не поступило.

Мини-форум консультации # 161305

puporev

Профессор

ID: 401888

177731

= общий =    25.02.2009, 09:15
Если файл текстовый, то внести в него изменения нельзя. Можно только дописать (append). Если нужно изменить, то нужно открыть файл для чтения(reset), прочитать построчно, найти нужный фрагмент, преобразовать его и построчно переписать в новый файл(rewrite). Далее можно либо сохранить оба файла, либо старый уничтожить(erase), а новый переименовать на имя старого(rename).
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.