VPF::Вывод данных - Форум программистов

COOLJohn

Дата 14.1.2006, 18:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Привидите, пожалуйста, пример вывода всех данных из файла на дисплей, не используя никаких массивов.

Guedda

Дата 14.1.2006, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: 78

А при чем тут массивы?

Код


var
  f: file;
  s : string;
begin
  Assign(f, "file");
  Reset(f);
  while not eof(f) do
    read(f, s);
    write(f, s);
  end;
  Close(f);
end.

Или я не совсем понял вопрос?

--------------------

Ll 2

Albinos_x

Дата 14.1.2006, 18:55 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: нет
Всего: 108

Цитата(Guedda @ 14.1.2006, 18:18

)

var
f: file;
s : string;
begin
Assign(f, "file");
Reset(f);
while not eof(f) do
read(f, s);
write(f, s);
end;
Close(f);
end.

мдя... читаешь и тут же записываешь... туда-же...
предположу что файл текстовый...

Код


var    
  f: text;    
  s : string;    
begin    
  Assign(f, 'c:\file.txt');    
  Reset(f);    
  while not eof(f) do    
    readln(f, s);    
    writeln(s);    
  end;    
  Close(f);    
end.

Это сообщение отредактировал(а) Albinos_x - 15.1.2006, 01:38

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Zero

Дата 14.1.2006, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Да ёшкин кот, филькин хвост... smile

Вы хоть кто-нибудь можете проверить ту чушь которую пишите перед отправкой: (тут паскаль, а не делфи)

Код


var    
  f: text;
  s : string;    
begin    
  Assign(f, 'c:\1.txt');
  Reset(f);    
  while not eof(f) do    
    begin
      readln(f, s);
      writeln(s);
    end;
  Close(f);    
end.

Albinos_x

Дата 15.1.2006, 00:35 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: нет
Всего: 108

Цитата(Zero @ 14.1.2006, 21:37

)

Вы хоть кто-нибудь можете проверить ту чушь которую пишите перед отправкой:

прошу прощения за опечатку(ЗЫ:в делфи такое тоже не прокатит):

Цитата

Assign(f, "file");

пост подправлен...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Zero

Дата 15.1.2006, 00:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(Albinos_x @ 15.1.2006, 01:35

)

ЗЫ:в делфи такое тоже не прокатит

А в паскале ещё и такое не прокатит: smile

Код


var    
  f: textfile;

Добавлено @ 01:00
Или такое ещё интереснее:

Цитата(Guedda @ 14.1.2006, 19:18

)

var
f: file;

Albinos_x

Дата 15.1.2006, 01:36 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: нет
Всего: 108

Цитата(Zero @ 15.1.2006, 00:58

)

А в паскале ещё и такое не прокатит:
код Pascal/Delphi
var
f: textfile;

ну да.... забыл...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »