VPF::Не могу добавить запись в типизированный файл

TP@MB@Y

Дата 28.6.2006, 21:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

Репутация: нет
Всего: 4

Код


AssignFile(f,FNAME);
Reset(f);
write(f,rec); 
CloseFile(f);

Выдает ошибку что доступ запрещен.
Файл существует и не занят никаким приложением :-/

Mailman

Дата 28.6.2006, 22:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 6.6.2006

Репутация: нет
Всего: нет

Думаю тебе стоит несколько дополнить свой код ). Потому как то, что ты написал - верно. =)

Добавлено @ 22:04
А ваще, ты не ответил, РАЗРЕШЁН ли доступ ;)

Yanis

Дата 28.6.2006, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(TP@MB@Y @ 28.6.2006, 22:51

)

Файл существует и не занят никаким приложением :-/

Уверен? Проверь ещё чему равно FileMode.

--------------------

*щёлк*

Palladin

Дата 28.6.2006, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Ну у тебя ошибок здесь нет, может просто в этой строке
assign(f,fname);
у тебя путь в fname неправильный указывается, попробуй по топорному путь прописать
assign(f,'F:/твоя папка/тип.txt');

и посмотри будут ошибки или нет smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

TP@MB@Y

Дата 28.6.2006, 22:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

Репутация: нет
Всего: 4

Mailman, ээм, а как дополнить то? ааа, я забыл в посте написать еще Seek(f,filesize(f)); (по памяти писал)
делаю я вот так:

Код


 AssignFile(f,FNAME);
 Reset(f);
 Seek(f,filesize(f));
 Write(f,info);
 CloseFile(f);

RooR, путь правильно прописан, т.к. если делать rewrite, то запись проходит успешно)

Yanis, да точно не занят. Но в крайнем случае проверю так как ты написал smile

Yanis

Дата 28.6.2006, 23:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

TP@MB@Y
Проверь атрибуты у файла. Очевидно, что ты что то неправильно делаешь. Вот только что....

--------------------

*щёлк*

Guedda

Дата 28.6.2006, 23:18 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(Yanis @ 29.6.2006, 00:03

)

Вот только что....

Ты открываешь файл на чтение:

Цитата(TP@MB@Y @ 28.6.2006, 23:53

)

Reset(f);

И пишешь в него:

Цитата(TP@MB@Y @ 28.6.2006, 23:53

)

Write(f,info);

Так нельзя...

Добавлено @ 23:19
Я не помню про типизированные, но обычные файл для дозаписи открываются обычным Append

--------------------

Ll 2

Yanis

Дата 28.6.2006, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Guedda @ 29.6.2006, 00:18

)

Ты открываешь файл на чтение:

Цитата(Guedda @ 29.6.2006, 00:18

)

И пишешь в него:

Цитата(Guedda @ 29.6.2006, 00:18

)

Так нельзя...

Не в обиду сказано, но это жара так на тебя влияет? smile

Цитата

procedure Reset(var F [: File; RecSize: Word ] );

Description
In Delphi code, Reset opens the existing external file with the name assigned to F using the mode specified by the global FileMode variable.

Добавлено @ 23:25

Цитата(Guedda @ 29.6.2006, 00:18

)

Я не помню про типизированные, но обычные файл для дозаписи открываются обычным Append

Append опять же как гласит справка, только для текстовых файлов.

--------------------

*щёлк*

Guedda

Дата 28.6.2006, 23:28 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(Yanis @ 29.6.2006, 00:24

)

но это жара так на тебя влияет?

Да. Жара... Спутал с Pascal.

--------------------

Ll 2

Yanis

Дата 28.6.2006, 23:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Guedda @ 29.6.2006, 00:28

)

Да. Жара... Спутал с Pascal.

Дык в паскале то она ту же самую функцию выполняет smile

--------------------

*щёлк*

Palladin

Дата 28.6.2006, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Код


AssignFile(f,FNAME);
 Reset(f);
 Seek(f,filesize(f)); //я точно не помню, но кажется эта строка вообще не нужна, т.к. функция reset(f) и так поставит указатель в конец файла
 Write(f,info); //что такое info????? может пробуй делать запись из этого инфо посимвольно ;-) 
 CloseFile(f); //только открыл, а уже закрываеш :D

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Marriage

Дата 28.6.2006, 23:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 842
Регистрация: 4.5.2004
Где: Таганрог

Репутация: нет
Всего: 2

1)Файл этот открыл в своей проге и не закрыл
2)Файл открыт другим процессом.
Все вродебы. Что за файл то хоть ???

--------------------

Praemonitus, praemunitus

Yanis

Дата 28.6.2006, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(RooR @ 29.6.2006, 00:33

)

т.к. функция reset(f) и так поставит указатель в конец файла

Остаётся мне сегодня только цитировать....

Цитата

procedure Reset(var F [: File; RecSize: Word ] );
...
The current file position is set to the beginning of the file.
...

--------------------

*щёлк*

TP@MB@Y

Дата 30.6.2006, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 370
Регистрация: 18.12.2004
Где: Москва

Репутация: нет
Всего: 4

Yanis, спасибо за мысль насмчет filemode. Дело было в нем. Я ручками перед reset присвоил filemod:=2 и все окей! smile

Yanis

Дата 30.6.2006, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

TP@MB@Y
Значит "кто-то" её меняет. По умолчанию она должна быть равна 2.

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »