Открытие файла только на чтение
Перед открытием или созданием файла, установите переменную FileMode. Чтобы установить ее, воспользуйтесь 'File Open Mode constants' (константы режима открытия файла). Взгляните на описание модуля Sysutils. Где-то во второй части описания находится перечень 'File Open Mode constants'. Вот они-то как раз и используются в переменной FileMode. Константы лучше связывать логическим оператором OR... например с fmOpen... или с константой fmShare... константы устанавливают режим.
Ознакомьтесь в файле помощи с описанием переменной FileMode. Если перед открытием файла вы установили ее в ноль, файл будет открыт только для чтения. По-умолчанию read/write (чтение/запись) для нетипизированных файлов.
Вы можете просто попробовать установить filemode после того, как сделаете файлу assign. Например:
| AssignFile(F, FileName); FileMode := 0; { устанавливаем доступ к файлу только для чтения } Reset(F); . . . CloseFile(F); |
[001695]
