Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

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

295
21 ноября 2002 года
gray_k
356 / / 20.12.1999
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.
476
21 ноября 2002 года
man2002ua
218 / / 16.10.2002
Цитата:
Originally posted by gray_k
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.



ХЕЗ!
rewrite и append работают!

295
21 ноября 2002 года
gray_k
356 / / 20.12.1999
Цитата:
Originally posted by man2002ua


ХЕЗ!
rewrite и append работают!


Да, append работает.:o
Глюк какой-то.

423
21 ноября 2002 года
Quasi
98 / / 20.01.2000
Цитата:
Originally posted by gray_k
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.



Reset( var Vf [: File; RecSize: Word ] );

Если с файловой переменной Vf связан текстовый файл, то он открывается только для чтения.

2.2K
22 ноября 2002 года
Minx
13 / / 26.10.2002
reset(f); -> rewrite, append ??
476
22 ноября 2002 года
man2002ua
218 / / 16.10.2002
Цитата:
Originally posted by Quasi


Reset( var Vf [: File; RecSize: Word ] );

Если с файловой переменной Vf связан текстовый файл, то он открывается только для чтения.



да, похоже так оно и есть - для текстовых файлов нет возможности писать данные поверх. Впринципе - логично :)

2.2K
01 декабря 2002 года
Steap2K
5 / / 01.12.2002
Цитата:
Originally posted by gray_k
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
reset(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.




А у тебя переменная F типа Text или TextFile?

2.2K
03 декабря 2002 года
delphi_nmv
5 / / 02.12.2002
Цитата:
Originally posted by gray_k
пытаюсь записать строку в текстовый файл:
if not FileExists('MyFile.txt') then begin
ShowMessage('не найден файл');
Exit;
end;
AssignFile(f,'MyFile.txt');
//reset(f);//Этот оператор для чтения файла для
//записи append(f); или appendfile(f);
//точно непомню.
append(f);
write(f,'text');
closefile(f);
При записи выдаётся ошибка. В чём проблема, подскажите. Файл существует.

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог