Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Чтение из файла 
:(
    Опции темы
Kosya4ok
Дата 10.11.2007, 00:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 132
Регистрация: 23.7.2007

Репутация: нет
Всего: нет
Всем привет!
Хочу вывести содержимое файоа на консоль.

Код

var ex : text;
      s : string;
procedure show;
begin
assign(ex, path);
reset(ex);
while not eof(ex) do
begin
writeln(s);
end;
close(ex);
end.


Вместо вывода сожержимолго файла выводит на экран какие то символы и причём без остановки. Приходится аварийно заверщать программу. Помоги плиз разобраться
PM MAIL   Вверх
Sartorius
Дата 10.11.2007, 00:59 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1568
Регистрация: 18.7.2006
Где: Ivory tower

Репутация: нет
Всего: 37
 Перед тем как строчку выводить неполохо бы ее и прочитать из файла. А еще лучше хоть одну книжку по языку прочитать перед тем как на нем что нит писать.
PM MAIL ICQ   Вверх
Kosya4ok
Дата 10.11.2007, 01:02 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 132
Регистрация: 23.7.2007

Репутация: нет
Всего: нет
Перед тем как отвечать ты хоть вникни в суть вопроса. Я просил помочь разобраться, а не умничать. Если такой умный то зачем так мелко плаваешь?
PM MAIL   Вверх
volvo877
Дата 10.11.2007, 01:14 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Kosya4ok, ты бы обороты-то сбавил... 

Ты что, строку из файла читаешь? А компилятору об этом ты сказать не забыл? Я вот тоже не вижу, ГДЕ строка читается из файла -> конец файла недостижим -> на экране бесконечный мусор, причем один и тот же (ибо S не инициализирована)...

Это сообщение отредактировал(а) volvo877 - 10.11.2007, 01:14
PM MAIL   Вверх
Kosya4ok
Дата 10.11.2007, 01:44 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 132
Регистрация: 23.7.2007

Репутация: нет
Всего: нет
Дауфф...Прифлося самому разбираться... smile  Еси к гото анлогичная возникнет проблема пишите помогу кодом, а не нравоучениями  smile 
PM MAIL   Вверх
Kosya4ok
Дата 10.11.2007, 03:14 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 132
Регистрация: 23.7.2007

Репутация: нет
Всего: нет
Такая ещё тема.
Как сделать так что бы при чтении из файла с начала каждой строки ставились пробелы? Any ideas? smile 
PM MAIL   Вверх
MetalFan
Дата 10.11.2007, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128
Код

writeln(#32+s);



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Kosya4ok
Дата 10.11.2007, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 132
Регистрация: 23.7.2007

Репутация: нет
Всего: нет
Эээ..можетя неправильно изъяснился. Я вывожу на консоль из файла таким образом
Код

procedure show;
var ch : char;
    i :integer;
begin

assign(Table, path);
reset(Table);

      while not eof(Table) do
            begin
            read(Table, ch);
            write(ch);
            end;

close(Table);
writeln;
end; 

И мне надо чтобы тоже самое, но только было по серединк консоли, а не справа.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0479 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.