Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.18;
Скачать: CL | DM;

Вниз

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

 
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]

спасибо


 
Anatoly Podgoretsky ©   (2007-02-02 10:12) [3]

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

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



Страницы: 1 вся ветка

Текущий архив: 2007.02.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.056 c
15-1169567048
Kerk
2007-01-23 18:44
2007.02.18
Отстрел собак


15-1169798133
leonidus
2007-01-26 10:55
2007.02.18
Помогите установить в D7 компонент EmbeddedWB


15-1169883926
GrayFace
2007-01-27 10:45
2007.02.18
RSPak - пакет модулей и компонент


15-1169945476
POP
2007-01-28 03:51
2007.02.18
Shareware софт, работа с клиентурой.


2-1170052000
anonimousC++
2007-01-29 09:26
2007.02.18
Вопрос по си++, знаю что это форум по Делфи...