Форум «Всё о Паскале» > Текстовый файл, вывод

123456789igor

5.06.2011 21:27

У меня есть текстовый файл. Мне нужно вывести его содержимое на экран через паскаль. Вот что я делал

Код

var
f1:text;
s:char;
begin
assign(f1,'1.txt');
while not eof(f1) do
readln(f1,s);
write(f1,s);
readln;
end.

Но так ничего не выводиться. Подскажите как это сделать правильно.

123456789igor

6.06.2011 2:04

Вот на что изменил:

Код

var
f1:text;
s:char;
begin
assign(f1,'1.txt');
reset(f1);
while not eof(f1) do
readln(f1,s);
write(s);
close(f1);
readln;
end.

но дело в том, что выводиться на экран только одна буква, а не весь текст.

123456789igor

6.06.2011 2:36

Всё разобрался!

Код

var
f1:text;
s:string;
begin
assign(f1,'1.txt');
reset(f1);
while not eof(f1) do begin
readln(f1,s);
writeln(s);
end;
close(f1);
readln;
end.

Только почему не считываются русские буквы?

DarkWishmaster

7.06.2011 2:41

Цитата(123456789igor @ 5.06.2011 22:36)

Всё разобрался!

Код

var
f1:text;
s:string;
begin
assign(f1,'1.txt');
reset(f1);
while not eof(f1) do begin
readln(f1,s);
writeln(s);
end;
close(f1);
readln;
end.

Только почему не считываются русские буквы?

Турбо Паскаль не выводит русские символы, зато Free Pascal прекрасно это делает.

Lapp

7.06.2011 3:34

Цитата(DarkWishmaster @ 6.06.2011 23:41)

Турбо Паскаль не выводит русские символы,

Неправда.

Цитата(123456789igor @ 5.06.2011 23:36)

Только почему не считываются русские буквы?

Русские буквы прекрасно считываются. Проблема с их выводом. В нашем FAQ есть про настройки для работы в TP с русскими буквами.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.