Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.06.2011, 18:26   #1
123456789igor
Пользователь
 
Регистрация: 19.04.2011
Сообщений: 62
По умолчанию Текстовый файл, вывод

У меня есть текстовый файл. Мне нужно вывести его содержимое на экран через паскаль. Вот что я делал
Код:
var
f1:text;
s:char;
begin
assign(f1,'1.txt');
while not eof(f1) do
readln(f1,s);
write(f1,s);
readln;
end.
Но так ничего не выводиться. Подскажите как это сделать правильно.
123456789igor вне форума Ответить с цитированием
Старый 05.06.2011, 23:03   #2
123456789igor
Пользователь
 
Регистрация: 19.04.2011
Сообщений: 62
По умолчанию

Вот на что изменил:
Код:
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 вне форума Ответить с цитированием
Старый 05.06.2011, 23:14   #3
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 530
По умолчанию

Код:
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.
а если вот так?

Последний раз редактировалось unbanned; 05.06.2011 в 23:33.
unbanned вне форума Ответить с цитированием
Старый 05.06.2011, 23:34   #4
123456789igor
Пользователь
 
Регистрация: 19.04.2011
Сообщений: 62
По умолчанию

О спасибо! Так работает! Только почему русские буквы не считываются???
123456789igor вне форума Ответить с цитированием
Старый 05.06.2011, 23:36   #5
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 530
По умолчанию

эмм... а какой паскаль? Turbo?

если да, то файл должен в OEM кодировке быть...

Последний раз редактировалось unbanned; 05.06.2011 в 23:43.
unbanned вне форума Ответить с цитированием
Старый 05.06.2011, 23:55   #6
123456789igor
Пользователь
 
Регистрация: 19.04.2011
Сообщений: 62
По умолчанию

FREE у меня!
123456789igor вне форума Ответить с цитированием
Старый 06.06.2011, 10:20   #7
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 530
По умолчанию

проблема в кодировке скорее всего
unbanned вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как текстовый файл в формате word 2007 переделать в файл в формате ZAY JULIA Microsoft Office Word 13 09.06.2010 19:43
Вывод в текстовый файл Krumyura Общие вопросы C/C++ 0 29.03.2010 22:31
Cи++, Текстовый файл. Diamond2107 Помощь студентам 7 07.12.2009 22:09
Текстовый файл в текстовый массив Kimimaru Общие вопросы C/C++ 1 02.12.2007 11:55
Консольная программа на Си: ввод, вывод, сортировка, сохранение в текстовый файл. zerg Помощь студентам 8 16.11.2007 12:57