Запись в текстовый файл

← →
Lera (2007-02-02 09:32) [0]

Доброе утро, есть код:
procedure TForm1.Button1Click(Sender: TObject);
var
ss:TextFile;
begin
AssignFile(ss,"File.txt");
if not FileExists("File.txt") then rewrite(ss) else Reset(ss);
writeln(ss,"bhkjkbwejef");
CloseFile(ss);
end;

Если файл не существует, то код работает без ошибок. А если файл есть, пустой или с записью, то при попытке добавления очередной записи (очередном обращении к процедуре) на операторе

writeln(ss,"bhkjkbwejef");

возникает ошибка "I/O error 105". Подскажите пожалуйста как быть.

← →
Elen © (2007-02-02 09:34) [1]

> Lera

if not FileExists("File.txt") then rewrite(ss) else Append(ss);

← →
Lera (2007-02-02 09:36) [2]

спасибо

> Lera (02.02.2007 09:32:00) [0]

Нестоит даже и пытаться писать в текстовый файл, открытый для чтения.

Запись в текстовый файл Найти похожие ветки