Добавить в файл строку(ошибка)

[MyLastHit]

Здравствуйте, пытаюсь добавить(не перезаписывая!) в файл строки. Получаю вот это:


Вот код:

var s:string;
    f1,f2:System.Text;
begin
getdir(0,s);
    AssignFile(f1,s+'\system1.dll');
    Reset(f1);
    writeln(f1,'['+edit1.text+']');//на вот этой строке. а если писать rewrite то все ок.
    writeln(f1,edit2.text+'\'+edit1.text+'.dll');
    CloseFile(f1);

Что не так?

[Kotofff]

Reset не открывает на запись текстовые файлы.
Выход: Rewrite или Append

[MyLastHit]

Спасибо большое Append - именно то, что нужно)))

[MyLastHit]

Короче кому интересно - на основе этих двух функций слепил кентаврика)))

try          //на случай если файла не существует
{тут Аппент}
except
{тут rewrite}
end;

[beseda2408]

У меня подобный вопрос.
Append добавляет строки к концу файла
Rewrite перезаписывает файл и начинает добавлять строки сначала.

А как сделать так, чтобы в существующем текстовом файле из 10 строк изменить 5 строку, иными словами заменить ее из переменной типа string?

[MyLastHit]

Тут создаешь стринглист и с ним работаешь

var a:TStringlist;
begin
  a:=tstringlist.create;
  a.loadfromfile('путь');
  a[номер строки -1]:='текст';
  a.savetofile('Путь');
end;

[Serge_Bliznykov]

согласен.

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

А как сделать так, чтобы в существующем текстовом файле из 10 строк изменить 5 строку, иными словами заменить ее из переменной типа string?

позволю себе чуть пояснить вариант MyLastHit

Вы грузите Ваш текстовый файл целиком в память.
Изменяете как хотите (хоть строчки меняете, хоть добавляете, хоть удаляете).
Полученные изменения пишете в исходный текстовый файл (перезаписав его полностью).

в 99.9% подобный подход вполне себе оправдан и достоин применения.
Оставшиеся доли процента - это шаманство и хакерство (и, соответственно, для нормального программиста непримелимо).

[beseda2408]

Я думаю это и есть решение моей проблемы.
Serge_Bliznykov, MyLastHit большое спасибо за помощь.

[Serge_Bliznykov]

только надо обязательно освободить ресурс после использования.
после a.savetofile('Путь');
надо

 a.Free;

или, в большинстве случае более удобно использовать процедуру, которая не только освободит память, но и присвоит указателю ссылку nil:

FreeAndNil(a);

[beseda2408]

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

только надо обязательно освободить ресурс после использования.
после a.savetofile('Путь');
надо

 a.Free;

или, в большинстве случае более удобно использовать процедуру, которая не только освободит память, но и присвоит указателю ссылку nil:

FreeAndNil(a);

Благодарю за полезные замечания!