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
- 8353 reads