TP7 чтение из файла, работает но не работает!?

[Qousio]

Здравствуйте коллеги. Вот такая странная штука, мне нужно для одной программы создать процедуру чтения данных из текстового файла. Весь день ломил голову над этим, дело в том, что всё прекрасно работает, но НЕ в моей программе. После того как мозг начал кипеть, нашёл в интернете образцы, опять же работает вне моей программы прекрасно.

Вот код процедуры:

Var UserFile : Text;
    FileName, TFile :String;
Begin
 Writeln('Enter the file name '+
        +'(with its full path) of the text file:');
 readln(FileName);
 {A .txt file will be assigned to a text variable}
 Assign(UserFile, FileName + '.txt'); 
 Reset(UserFile); {'Reset(x)' - means open the file x}
 Repeat
  Readln(UserFile,TFile);
if TFile = '1' then
	grid[x,y]:=1
else
	grid[x,y]:=0;
 Until Eof(UserFile);
 Close(UserFile);
 Readln;
End.

Естественно

if TFile = '1' then
	grid[x,y]:=1
else
	grid[x,y]:=0;

Не имеет логического смысла. Для простоты сократил...
Так вот, если это запустить как отдельную программу, то ошибок не будет. Если это запустить как процедуру в моей программе то вылетает ошибка: Error 2: File not found.
Интересно то, что она вылетает до того как мне предлогают ввести название файла. Т.е. readln(FileName); как бы пропускается.

Был бы в паскале был нормальный отладчик как в VC++ возможно я бы смог отследить странность, но тут пригодится Ваша помощь)


#Edit:
grid[x,y] и x,y обьявлены вне процедуры:
x, y :byte;
grid: Array[1..x_size,1..y_size] of byte;

[uberchel]

Ну во первых

 Writeln('Enter the file name ' ++'(with its full path) of the text file:');

с одним плюсом!

 Writeln('Enter the file name '+'(with its full path) of the text file:');

Во вторых UserFile : Text; прога же к файлу обращаеться, значит UserFile : TextFile;

[spamer]

Ошибка говорит о том, что файл не найден.
А что с процедурой не получается, передавайте просто ей имя файла на диске и все.

[Qousio]

Сообщение от spamer

Ошибка говорит о том, что файл не найден.
А что с процедурой не получается, передавайте просто ей имя файла на диске и все.

Во первых, из сообщение еррор и так понятно, что файл не найден. Как он может быть найден если строка readln(FileName); пропускается?
Т.е. когда процедура инициализируеться сразу выскакивает ошибка и мне не дают вписать имя файла. Во вторых, я не могу сразу передать ей имя файла, т.к. там будут несколько файлов, который юзер сам создает.

Сообщение от uberchel

Ну во первых

 Writeln('Enter the file name ' ++'(with its full path) of the text file:');

с одним плюсом!

 Writeln('Enter the file name '+'(with its full path) of the text file:');

Во вторых UserFile : Text; прога же к файлу обращаеться, значит UserFile : TextFile;

Вы наверное не поняли суть вопроса, код который я выложил чуть выше прекрасно работает если его скопилировать как отдельную программу. Как только я этот сам код помещаю в мою программу как процедуру, он не работает. Во вторых нету типа данных TextFile и никогда небыло....

[Stilet]

Как только я этот сам код помещаю в мою программу как процедуру, он не работает.

Показывай как.

Repeat
Readln(UserFile,TFile);

Если файл пустой может заругаться. Луче так:

While not Eof(userFile) do begin
  Readln(UserFile,TFile);
...
end;

[spamer]

Как только я этот сам код помещаю в мою программу как процедуру, он не работает.

Ну не знаю как ты его помещаешь в процедуру, но у меня все работает.

[Qousio]

Такс, я немного поэксперементировал. Мне кажется, что в моей программе переполняется буффер и его надо очистить... в ТП7 есть аналог команды FlushAll_ ?
Вот несколько странностей которые я наблюдал. Команда read(); перестает работать вообще, т.е. например read(a); вообще не инициализируется. Также команда readln; не приостанавливает программу... В чём может быть проблема? Единственный модуль который я использую это crt.

Саммое странное, что во всех программах которые я писал всегда всё прекрасно работало, а тут такая штука....

[Qousio]

Поднимаю тему... А то уползла на 3 страницы вниз