Работа с файлом

← →
Metotrone (2002-09-23 16:36) [0]

Как програмно проверить, Assigned ли файл с переменной f, если не факт, что это в моей программе произошло ?

← →
Anatoly Podgoretsky (2002-09-23 16:45) [1]

Это как

← →
Metotrone (2002-09-23 17:07) [2]

Например, AssignFile() находится в процедуре NNN? но не известнно, выполнилась ли она. Так вот надо проверить, ассоуиирорван ли файл с переменной.

← →
Старый Паскалист (2002-09-23 17:15) [3]

смотри
TFileRec/TTextRec

← →
LordOfSilence (2002-09-23 17:31) [4]

> Metotrone ©ю
Попробуйте Вашу файловую переменную привести
к типу:
TFileRec = packed record
Handle: Integer;
Mode: Word;
Flags: Word;
case Byte of
0: (RecSize: Cardinal); // files of record
1: (BufSize: Cardinal; // text files
BufPos: Cardinal;
BufEnd: Cardinal;
BufPtr: PChar;
OpenFunc: Pointer;
InOutFunc: Pointer;
FlushFunc: Pointer;
CloseFunc: Pointer;
UserData: array[1..32] of Byte;
Name: array[0..259] of Char; );
end;
который объявлен в модуле System.
ИМХО, в поле Name содержится полное имя файла.
Таким образом, Вы, пожалуй, произведете обратную
операцию, а именно: проверите, не сопоставлена ли
Ваша файловая переменная какому-либо файлу.

Работа с файлом Найти похожие ветки