Проблема с чтением и выводом содержимого текстового файла на экран

[-=PascaL=-]

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

Var
 ReadMe:text;
  Stroka:string;

А это часть программки, которая не работает (в смысле компилируется без ошибок, но на экран ничего не выводит):

Begin
 Assign(ReadMe,’ReadMe.txt’);
 Reset(ReadMe);
  While not (SeekEoln(ReadMe)) do
   Begin
    Readln(ReadMe, Stroka);
    Writeln(Stroka);
   End;
 Close(ReadMe);
End;

Не могу понять, в чём ошибка.

[Пепел Феникса]

Begin
Assign(ReadMe,’ReadMe.txt’);
Reset(ReadMe);
While not(EoF(ReadMe)) do
Begin
Readln(ReadMe, Stroka);
Writeln(Stroka);
End;
Close(ReadMe);
End;

а то чтото странное было

[vovk]

Так просто 1 строчку считает и остановится, чтоб весь файл надо в условии цикла задать

 not (SeekEoF(ReadMe))

или как подсказал Пепел Феникса

not(EoF(ReadMe))

просто скорее всего 1 строка в ReadMe.txt пустая поэтому ничего и не выводится

[-=PascaL=-]

Феникс, если ты про пробелы перед каждой строчкой, то здесь нет ничего странного. Я так выделяю отдельные блоки программы, так проще ориентироваться и искать ошибки.

vovk , Пепел Феникса
Первая строка не пустая. Но я попробую сделать так как вы написали.

Не помогло. Прога открывает файл без ошибок, но вроде как пропускает чтение или просто не отображает считанное, и продолжает свою работу.

[vovk]

может после Close(ReadMe); добавить ReadLn ?

[Пепел Феникса]

если мне память не изменяет то в Паскале есть трассировка
и помоему путь к файлу нужно указать точный...

стоп..а это вся программа чтоли?

[-=PascaL=-]

Нет не вся, эта часть проги которая работает не праильно (а точнее савсем не работает). Эта часть програмки должна выводить на экран что-то вроде руководства к пользованию программой. Она вызывается пользователем, при случае выбора из меню соответствующего "раздела".

А если нужен точный путь к файлу, разве в данном случае программка не выдавала бы ошибку мол файл не найден?

vovk
Не помогло. А смысл в ReadLn после Close(ReadMe); у меня эта конструкция:

Begin
Assign(ReadMe,’ReadMe.txt’);
Reset(ReadMe);
While not(EoF(ReadMe)) do
Begin
Readln(ReadMe, Stroka);
Writeln(Stroka);
End;
Close(ReadMe);
End;

не в отдельном цикле. Получается программа перейдёт на новую строку и продолжит работу дальше, если я не ошибаюсь.

Пепел Феникса
Указал полный путь, теперь програ файл вообще не находит, хотя путь правильный.

[vovk]

нет программа будет ждать ввода строки, я же ваш код дальше не знаю может у вас там cls

[-=PascaL=-]

Поставил программу на прогон в режиме пошагового выполнения, отрезок:

While not(EoF(ReadMe)) do
Begin
Readln(ReadMe, Stroka);
Writeln(Stroka);
End;

программа просто "перепрыгивает", вроде как пропускает. Хотя может так и должно быть я просто данной функцией (пошагового выполнения) ниразу не пользовался (не было надобности), я и паскаль изучать углублённо начал месяца полтора назад.

vovk
Дальше идёт запрос на ввод числового значени, за ним оператор выбора, в котором два варианта: возвращает во внешний цикл или выходит из программы.

From Stilet: Если будешь постить подряд свои посты рядом, и не оформлять код тегом по кнопке # тему закрою за нарушения и неуважение.

[Пепел Феникса]

я не про пробелы...отступы это стандарт
я просто ту функу забыл...

а попробуй отдельно программу написать и в ней выводить файл