| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запись в текстовый файл [D7, XP]
Lera © (2007-02-02 09:32:00)Доброе утро, есть код:
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". Подскажите пожалуйста как быть.
Anatoly Podgoretsky (2007-02-02 10:12:00) [1]> Lera (02.02.2007 09:32:00) [0]
Нестоит даже и пытаться писать в текстовый файл, открытый для чтения.
Lera (2007-02-02 09:36:00) [2]спасибо
Elen (2007-02-02 09:34:00) [3]
> Lera
if not FileExists('File.txt') then rewrite(ss) else Append(ss);
| |
