Автор: 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 с русскими буквами.