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

sin!

Дата 23.5.2003, 09:20 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

у меня маленький вопрос......когда я вывожу из файла словарь( в нём слово сверху под ним следующее и т.д.) то на экране печатается только первое слово(самое верхнее) Почему так и как с этим бороться?

man2002ua

Дата 23.5.2003, 09:49 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник Клуба
Сообщений: 943
Регистрация: 12.11.2002
Где: Киев

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

"у меня машина не едет - в чем проблема?"
Ты бы хоть код привел, что ли...

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

"Нет ничего более постоянного, чем временное"

Sarge

Дата 25.5.2003, 00:27 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 24.5.2003
Где: Москва, флотская улица, дом 13

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

Ну-ну сначала програмить научись, а потом на форум лезь

МОДЕРАТОР: Убедительная просьба не переходить на личности! В следующий раз это будет жестоко наказываться!!! Уважайте друг друга!

Это сообщение отредактировал(а) Pegas - 26.5.2003, 21:20

Monty

Дата 25.5.2003, 00:47 (ссылка)

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

Загрузка ...

Advanced Lamer

Профиль
Группа: Участник Клуба
Сообщений: 3511
Регистрация: 3.4.2003
Где: Гваделупа

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

Цитата(Sarge @ 25.5.2003, 00:27)

Ну-ну сначала програмить научись, а потом на форум лезь

для этого он и есть !!!

sin! я тебя почти понял, посмотри вот такой оператор SEEK
например в хелпе есть пример, сам не помню

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

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

dm9

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

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

Загрузка ...

Дмитрий Копытин

Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

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

>Monty
Не думаю, при печати указатель автоматически передвигается на единицу вперёд.

>sin!
Может, это чудо программирования тебе поможет

Код

type
   R = record
          A : Byte;
          B : String [3];
       end;
var
   F : File of R;
   S : R;
begin
   {To DB}
   Assign (F, 'E:\1.dat');
   ReWrite (F);
   S.A := 1;
   S.B := 'One';
   Write (F, S);
   S.A := 2;
   S.B := 'Two';
   Write (F, S);
   Close (F);

   {From DB}
   ReSet (F);
   while not EOF (F) do
   begin
      Read (F, S);
      WriteLn (S.A, ' ', S.B);
   end;
   Close (F);
end.

Это сообщение отредактировал(а) dm9 - 27.5.2003, 18:36

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