Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

определить, были ли вызваны reset или rewrite [D6, XP]

Mr tray © (2006-05-27 00:41:00)
Есть var f:file of mytype; Как определить, были ли вызваны reset(f) или rewrite(f), не применяя переменных для запоминания. А то closefile(f) без предыдущих reset(f) или rewrite(f) дает ошибку.

Rial (2006-05-27 15:57:00) [1]
Аааа.
Просто ни разу не использовал его в Delphi :))
Да и зачем, тоже не понятно, он тут нужен ?
Виноват.

palva (2006-05-27 15:50:00) [2]
Тогда спасало только Int 21h с возможностью установки прав на открытие.
А под Win32 же выхода не видно вовсе.

Спасает
FileMode := 0 // System.FileMode := 0

begin...end (2006-05-27 15:44:00) [3]
> Rial © (27.05.06 15:40) [4]

Читать справку по Reset.

Rial (2006-05-27 15:40:00) [4]
Rest
> > Rial © (27.05.06 00:49) [1]
>
> > и от кучи глюков, связанных с использованием
> > Reset
> > избавишься.
>
> Не затруднит пояснить, какая куча глюков, связанных с использованием
> Reset, имеется в виду?

Эта гадость перекочевала еще с Pascal под DOS.
При выполении Reset происходит попытка открыть файл и на чтение,
и на запись.
Поэтому такой подход не прокатит при чтениифайла с устройства
ReadOnly, например CD или DVD устройство.
Тогда спасало только Int 21h с возможностью установки прав на открытие.
А под Win32 же выхода не видно вовсе.

begin...end (2006-05-27 06:19:00) [5]
> Mr tray (27.05.06 00:41)

var
F: File; // file of, TextFile
begin
...
case TFileRec(F).Mode of
fmInput: ... ; // Файл открыт для чтения
fmOutput: ... ; // Файл открыт для записи
fmInOut: ... ; // Файл открыт для чтения и записи
fmClosed: ... ; // Файл закрыт
end;
...
end

> Rial © (27.05.06 00:49) [1]

> и от кучи глюков, связанных с использованием
> Reset
> избавишься.

Не затруднит пояснить, какая куча глюков, связанных с использованием Reset, имеется в виду?

Mr tray (2006-05-27 01:05:00) [6]
ясно, спасибо, посмотрим

Rial (2006-05-27 00:49:00) [7]
Используй

Var HFile:Integer;
begin
...
HFile:=FileCreate(FileName);
FileOpen(FileName,fmOpenWrite[ or fmDenyRead or fmDenyWrite]);
...
FileRead(HFile,Buffer,SizeOf(Buffer));
...
FileClose(HFile);

Окрыть можно так:
HFile:=FileOpen(FileName,fmOpenRead or fmDenyWrite);

Короче, смотри F1, и не делай так:
HFile:=FileCreate(FileName);
HFile:=FileOpen(FileName,fmOpenWrite[ or fmDenyRead or fmDenyWrite]);

Кстати, так и работать твоя программа станет быстрее,
и от кучи глюков, связанных с использованием
Reset
избавишься.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »