| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Это опять вопрос по Borland Pascal 7 (работа с записями)

Cuper ©   (2004-06-16 15:13:00) 

Добрый день!!!
Фрагмент кода:
type
 baza_d = record
   number_scheta    : integer;
   number_kartochki : integer;
   PIN              : integer;
   family           : string[15];
   name             : string[10];
   otchestvo        : string[15];
   summa            : integer;
 end;
var
 baza : baza_d;
 ff : file of baza_d;
begin
 assign (ff, 'inf.dat');
 rewrite (ff);
   write ('‚Введите номер счета  -> ');
     readln (baza.number_scheta);
       write (ff, baza);
   write ('‚Введите номер карточки -> ');
     readln (baza.number_kartochki);
       write (ff, baza);
   write ('Введите PIN код -> ');
     readln (baza.PIN);
       write (ff, baza);
   write ('Введите фамилию -> ');
     readln (baza.family);
       write (ff, baza);
   write ('Введите имя -> ');
     readln (baza.name);
       write (ff, baza);
   write ('Введите отчество -> ');
     readln (baza.otchestvo);
       write (ff, baza);
   write ('Введите сумму денег на счет -> ');
     readln (baza.summa);
       write (ff, baza);
 close (ff);
end;
Подскажите пожалуйста почему файл после работы этого кода занимает почти 350 байт. Пишет какую то отсебятину туда.
Даже если вводить все 1, то все равно 346 занимает
Заранее благодарю за ответ.
                                     cuper

---

Cuper   (2004-06-16 15:22:00) [1]

Спасибо.
Благодарю.
Больше не буду беспокоить. Еще раз спасибо.

---

Sandman25   (2004-06-16 15:17:00) [2]

write ('‚Введите номер счета  -> ');
    readln (baza.number_scheta);
//       write (ff, baza);
  write ('‚Введите номер карточки -> ');
    readln (baza.number_kartochki);
//       write (ff, baza);
  write ('Введите PIN код -> ');
    readln (baza.PIN);
//       write (ff, baza);
  write ('Введите фамилию -> ');
    readln (baza.family);
//       write (ff, baza);
  write ('Введите имя -> ');
    readln (baza.name);
//       write (ff, baza);
  write ('Введите отчество -> ');
    readln (baza.otchestvo);
//       write (ff, baza);
  write ('Введите сумму денег на счет -> ');
    readln (baza.summa);
      write (ff, baza); // только 1 раз пишем, когда запись готова

---

Наверх