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

[vovk]

взял уже решил проверить запустил турбо паскаль
написал

program wdw;

Var
ReadMe:Text;
Stroka:string;

Begin
Assign(ReadMe,'ReadMe.txt');
Reset(ReadMe);

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

Close(ReadMe);
Readln;
End.

сохранил рядом ReadMe.txt скомпилировал, запустил, посидел почитал свой ридми..
всё работало как ожидалось..

[Impuls1989]

Пробуйте переписать (пересохранить) ваш файл, или попробуйте открывать другой. Судя по тому, что вы сказали, программа сразу натыкается на символ EOF...

[-=PascaL=-]

Всё! Разобрался! В ходе эксперементов до меня дошло, что косяк не в коде (там все работает как часы!), а в моём не знании. Суть в том что я сохраняю файл програмки не в стандартной папке Паскаля, а в другой. Поэтому нужно было прописывать полный путь к файлу! А в стандартной папке Паскаля у меня лежал другой файл ReadMe.txt (пустой) из него то программа и считывала инфу.
Но возникает другой вопрос: А если зарание не известен путь к файлу, (тот же диск куда будет скинута прога) как быть тогда?

[vovk]

ну если файл относительно проги известно где лежит то путь вроде так можно указать
'doc\ReadMe.txt'

[NieL]

1. Кидаешь txt-файл в папку с exe'шником
2.

Assign(ReadMe, ParamStr(0) + 'ReadMe.txt');

// Кажется так

[vovk]

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

1. Кидаешь txt-файл в папку с exe'шником
2.

Assign(ReadMe, ParamStr(0) + 'ReadMe.txt');

// Кажется так

ParamStr(0) вернёт полный путь к запускаемому файлу

если уж нужен полный путь к папке в которой находится программа то скорее так

var
str:String;
...
...

Getdir(0,str);
Assign(ReadMe, str+ '\ReadMe.txt');

[-=PascaL=-]

Огроменное спасибо всем кто помогал!!! Я усвоил много нового и полезного! Теперь всё работает как часы! Ура!)))