Проблема с чтением из файла... Опции

[Костян]

Народ отсень простенький вопрос(в поиске не нашел, так что спрашиваю напрямую). Есть файл file.txt и нужно сделать прогу которая бы выводила текст этого файла на экран. Вот и все. Вот что у меня получилось:

Код

program qest;
uses crt;
var
fiile : text;
begin
clrscr;
assign(fiile,'file.txt');  reset(fiile);
writeln(fiile);
readkey;
end.

Обьясните же мне старому дурню шо тут не так.

[volvo]

assign(fiile,'file.txt');  reset(fiile);
writeln(fiile); { <--- Здесь ! }

Ошибка твоя - в том, что ты пытаешься НЕ распечатать файл, а записать в него пустую строку (ну вот такой у Паскаля синтаксис ), причем будет ошибка, ибо файл-то у тебя открыт для чтения, а не для записи!

А делать-то надо было вот так:

program qest;
uses crt;
var
  fiile : text;
begin
  assign(fiile,'file.txt');  reset(fiile);
  while not eof(fiile) do begin
    readln(fiile, s); { <--- Читаешь строку из файла ... }
    writeln(s); { <--- и пишешь ее на экран }
  end;
  readkey;
end.

[Костян]

Огромное спасибо все заработало, но возникла еще одна проблема- при чтении из файла русского языка
на экран выдается набор символов, как это можно исправить?

[Бродяжник]

Тут слишком много вопросов:
- в какой кодировке набран текстовый файл?
- он точно текстовый? в смысле ASCII?
- в каком режиме работает программа?
Соответственно и решений может быть много:
- перекодировать входной файл
- перед запуском программы подгружать русификатор экрана
- в самой программе переводить считанные строки в требуемую кодировку, а уж потом выводить на экран
- и тогда, может быть, нужно будет предусмотреть возможность разных режимов,
типа "считать файл KOI-8R и вывести его в альтернативной кодировке".