RusFAQ.ru: Программирование на языке Pascal
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на языке Pascal
Выпуск № 125
от 29.04.2003, 16:10
| Администратор: Имя: Sensey URL: Информационный ресурс ICQ: 105679124 Украина, Харьков |
О рассылке: Задано вопросов: 211 Отправлено ответов: 630 Активность: 298.5 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Ayl Статус: Профессиональный Общий рейтинг: 119.05 [Подробней >>] |
Sensey Статус: Профессиональный Общий рейтинг: 121.73 URL: Страничка рассылки по Паскалю Телефон: +38 (0572) 41-76-04 д. [Подробней >>] |
DoS@ Статус: Начальный Общий рейтинг: 125 [Подробней >>] |
| Paulkan Статус: Начальный Общий рейтинг: 104.38 [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 207. Привет всем экспертам! У меня какая то заморочка с открытием файлов на чтение!!!!!! Делаю как в прил... (ответов: 4)
Вопросов: 1, ответов: 4
| Вопрос № 207 |
Привет всем экспертам!
У меня какая то заморочка с открытием файлов на чтение!!!!!!
Делаю как в приложениии, а она читает только последнюю строчку!
Приложение:
Вопрос отправлен: 26.04.2003, 16:06
Отправитель: Кирилл
[Следующий вопрос >>] [Список вопросов]
Отвечает Ayl
Здравствуйте, Кирилл!
Ну типа как просил - так и выводит :-)
Ты описание оператора while помнишь:
while условие do оператор;
Один оператор! Т.е. ты читаешь строки до конца файла и только потом выполняется вывод строки. Соответственно, последней прочитанной.
Чтобы выполнить в цикле несколько команд нужно заключить их в операторные скобки begin end. Получится составной оператор, который и будет выполняться в цикле:
while not Eof (f) do
begin
readln (f, str);
writeln (str);
end;
Кстати, на будущее - используй отступы при написании программы - легче будет искать подобные ошибки.
Ответ отправлен: 28.04.2003, 15:33
Отправитель: Ayl
Отвечает Sensey
Здравствуйте, Кирилл!
:) Стандарная ошибка
Var f: text;
str:string;
begin
assign(f,'primer.txt');
Reset(f);
While not Eof(f) do
begin
Readln(f,str);
writeln(str);
end;
close(f);
end.
Ответ отправлен: 26.04.2003, 16:21
Отправитель: Sensey
Отвечает DoS@
Приветствую Вас, Кирилл!
После строки "Writeln(str);" надо написать end;!
Ответ отправлен: 28.04.2003, 23:14
Отправитель: DoS@
Отвечает Paulkan
Приветствую Вас, Кирилл!
Надо так:прочитал строку - вывел, прочитал - вывел ...
Приложение:
Ответ отправлен: 27.04.2003, 16:26
Отправитель: Paulkan
|
Форма отправки вопроса |
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
© 2002 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (35) C / C++ (28) Perl (6) Delphi (12) Pascal (22) Basic / VBA (6) Java / JavaScript (8) PHP (4) MySQL / MSSQL (3) |
Пользователю Windows 95/98/Me (28) Windows NT/2000/XP (22) "Железо" (23) Поиск информации (10) |
Администратору Windows NT/2000/XP (11) Linux / Unix (10) |
Юристу Гражданское право (6) Семейное право (4) Трудовое право (5) КоАП (4) |
Отправить вопрос всем экспертам выбранной рассылки.
| © 2002 Россия, Москва. Авторское право: RusFAQ.ru |
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
