lazarus freepascal Ошибка: Не получается прочитать (открыть) файл методами Паскаль -- система не видит его
Primary tabs
ПРИМЕЧАНИЕ: урок по работе с файлами в Паскаль доступен здесь.
Возможная причина
Убедитесь, что в вашей системе отображается расширение файлов -- иначе на деле может оказаться, что ваш файл называется не input.txt, а input.txt.txt -- и тогда может оказаться, чтобы вы просто указываете неверное имя файла.
Проверьте это прежде чем читать дальше.
Описание проблемы
Возможно, в моём случае проблема в правах, так как загрузка профиля происходит по сети на windows.
Код типа (используем проверку существования):
Var t:text; // тип для открытия текстового файла s, fileName: string; begin filename := 'C:\Users\TEMP.UIC.010\input.txt'; assign(t, fileName); {$I-} reset(t); {$I+} if IOResult <> 0 then begin writeLn('File ', filename, ' ne naiden!'); end else begin writeLn('File ', filename, ' suchectvuet!'); readln(t,s); close(t); writeln('Iz faila poluchaem stroku:', s); end;
-- выводит сообщение о том, что файл не найден, хотя он есть.
Возможное решение
Возможным решением проблемы может быть создание файла в той жи директории, откуда запускается программа.
Определить путь к исполняемому файлу вашей программы можно, запустив такой код:
begin WriteLn('Put k failu programmy: '); WriteLn(ParamStr(0)); readln(); end.
Например в моём случае это был путь (ответ программы):
Put k failu programmy: C:\Users\TEMP.UIC.012\Documents\project1.exe
Получается, что директория:
C:\Users\TEMP.UIC.012\Documents
скорее всего доступна для размещения файлов, и потому в ней создадим файл, который можно будет прочитать:
C:\Users\TEMP.UIC.012\Documents\input.txt
- Log in to post comments
- 7851 reads