Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с текстовыми файлами [D7, XP]

sedot © (2005-12-01 23:11:00)
Такая задача: необходимо считывать из текстового файла my.txt строки и если в строке будет текст "To:" записать в этот же файл в эту же строку "To: ok".

var
f:textfile;
i:integer;
b:string;

begin

if opendialog.execute then
assignfile (f, my.txt);

reset(f);
while not Eof(f) do begin
readln(f,a);
i:=i+1;
if trim(a)='To:' then begin
b:=trim(a)+' ok';
writeln(f,b,i);
closefile(f);
break;
end;
end;
end.

Пишет на writeln(f,b,i) ошибку i/o 105.

Подскажите где я ошибся.

Спасибо.

begin...end (2005-12-02 09:28:00) [1]
А, да, для текстовых я ошибся.

Anatoly Podgoretsky (2005-12-02 09:15:00) [2]
Текстовые файлы можно открыть только или на чтение или на запись, но нельзя на то и другое одновременно.
Да и со вставкой вне зависимости от типов файлов, не возможно вставить в середину, что то более большего размера, для этого надо переписывать весь файл, это же касается практически почти всех других протяженных объектов программирования.

begin...end (2005-12-02 08:54:00) [3]
> palva © (02.12.05 00:21) [2]

> Нет уж, если текстовый файл открыт для чтения (Reset), то
> записывать туда - не получится

Справку читать.

Германн (2005-12-02 02:23:00) [4]
Имхо. Нет никакихлегальных способов редактировать файл!Кроме, весьма редкого режима "изменить значение одного байта или нескольких последовательно идущих" без изменения их количества.

palva (2005-12-02 00:21:00) [5]
Нет уж, если текстовый файл открыт для чтения (Reset), то записывать туда - не получится, да и что будет со строками, которые лежат ниже? Они наверно исчезнут? По хорошему надо одновременно обрабатывать два файла, один построчно читать, а потом ту же строку записывать во второй файл. Вот здесь можно будет проверить прочитанную строку на нужные символы, а записать уже дополненную.

system (2005-12-01 23:52:00) [6]
Попробуй после того как нашел строку:
1) закрыть файл
2) открыть его
3) for j:=0 to i-1 do readln(F); write(f,b);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »