Чтение и запись из типизированного файла

Uses Objects,App,Menus,Drivers,Views,MsgBox,Dialogs;
const
  cm0=200;{поиск по параметру}
  cm1=201;
  cm2=202;
  cm3=203;
  cm4=204;
 
{----------------}
 
type
    MyApp=object (TApplication)
          Procedure InitMenuBar; Virtual;
          Procedure HandleEvent(var Event: TEvent); Virtual;
          Procedure GetDialog(com:integer);
          Procedure NewWindow;
    end;
    PMyDialog=^TMyDialog;
    TMyDialog=object(Tdialog)
              procedure handleEvent(var event:Tevent);virtual;
    end;
    PInterior=^TInterior;
    TInterior=object(TScroller)
              constructor init(R:Trect;SX,SY:PScrollBar);
              procedure draw; virtual;
    end;
    book=record
         name:string[45];{название книги}
         author:string[45];{автор книги}
         section:string[45];{раздел в котором находится книга}
         year:integer;{год издания}
         description:string;{Описание книги}
    end;
{----------------}
 
var P: MyApp;
    Lines: PCollection; {Коллекция для хранения строк}
    f,n:file of book;{Файлы содержащие информацию о книгах}
    s:string;
    bk:book;
    R:Trect;{Координаты элементов}
 
{----------------}
 
Procedure MyApp.InitMenuBar;
begin
  GetExtent(R);
  R.B.Y:=succ(R.A.Y);
  MenuBar:=New(PMenuBar,Init(R,
    NewMenu ( {Главная полоса}
      NewItem('~F1~ Поиск книги','~F1~',kbF1,cm0,0,{первый элемент главного меню}
      NewItem('~F2~ Добавить книгу', '~F2~', kbF2,cm1,0,{Второй элемент главного меню}
      NewItem('~ESC~ Выход','~ESC~',kbEsc,cmQuit,0,NIL))))));
end {MyApp. InitMenuBar};
 
{-------------------}
 
Procedure MyApp.HandleEvent;
{Обработка cm0, cm1 }
const  cms = [cm0,cm1,cmQuit] ;
begin
  Inherited HandleEvent(Event);
  case Event.Command of
    cm0: GetDialog(1);
    cm1: GetDialog(2);
  end;
  ClearEvent(Event);
end {MyApp.HandleEvent } ;
 
{------------------}
 
procedure MyApp.GetDialog(com:integer);
const L=120; {Длина строки ввода}
 
type Tdialog = record{Параметры диалогового окна}
     I1_Data,I2_Data,I3_Data:string[L]; {Текст в строке ввода}
     I4_Data:string[4];
     I5_Data:string[200];
     end;
 
var D:PmyDialog;{Диалоговое окно}
    I1,I2,I3,I5,I4:PinputLine;{Строка ввода}
    NameButton:string;{Для ввода сообщения}
    cm,x,i:integer;
    bkfind:book;
    DATA:Tdialog;
 
begin
  Data.I1_Data:='';{Текст в строке ввода}
  Data.I2_Data:='';{Текст в строке ввода}
  Data.I3_Data:='';{Текст в строке ввода}
  Data.I4_Data:='0';
  Data.I5_Data:='';
 
  if com=1 then begin
    R.Assign(5,3,75,14);{Координаты диалогов окна}
    D:=New(PMyDialog,Init(R,'Поиск'));
    namebutton:='~4~ Поиск';
    cm:=cm2;
    x:=4;
  end
  else begin
    R.Assign(5,3,75,18);{Координаты диалогов окна}
    D:=New(PMyDialog,Init(R,'Добавление'));
    namebutton:='~4~ Добавить книгу';
    cm:=cm3;
    x:=0;
  end;
  With D^ do
    begin
      R.Assign(20,2,60,3);
      I1:=New(PInputLine,Init(R,L));
      Insert(I1); {Вставляем строку ввода}
      R.Assign(1,2,20,3);
      Insert(New(PLabel,{Вставляем метку строки ввода}
        Init(R,'~l~ Автор ',I1)));
 
      R.Assign(20,4,60,5);
      I2:=New(PInputLine,Init(R,L));
      Insert(I2); {Вставляем строку ввода}
      R.Assign(1,4,20,5);
      Insert(New(PLabel,{Вставляем метку строки ввода}
        Init(R,'~2~ Название книги',I2)));
 
      R.Assign(20,6,60,7);
      I3:=New(PInputLine,Init(R,L));
      Insert(I3); {Вставляем строку ввода}
      R.Assign(1,6,20,7);
      Insert(New(PLabel,{Вставляем метку строки ввода}
        Init(R,'~3~ Рубрика',I3)));
 
      if com=2 then begin
        R.Assign(20,8,60,9);
        I4:=New(PInputLine,Init(R,4));
        Insert(I4); {Вставляем строку ввода}
        R.Assign(1,8,20,9);
        Insert(New(PLabel,{Вставляем метку строки ввода}
          Init(R,'~4~ Год издания книги',I4)));
 
        R.Assign(20,10,60,11);
        I5:=New(PInputLine,Init(R,200));
        Insert(I5); {Вставляем строку ввода}
        R.Assign(1,10,20,11);
        Insert(New(PLabel,{Вставляем метку строки ввода}
          Init(R,'~5~ Описание книги',I5)));
      end;
 
      R.Assign(14,12-x,32,14-x);
      Insert(New(PButton, {Вставляем кнопку}
        Init(R,NameButton,cm,bfNormal)));
      R.Assign(40,12-x,58,14-x);
      Insert (New(PButton, {Вставляем кнопку Отмена}
        Init(R,'~5~ Отмена',cm4,bfNormal)));
      SetData(Data) {Устанавливаем начальные значения}
    end;
    assign(f,'base.dat');
    reset(f);
    {Помещаем окно на экран и получаем команду завершения}
    case DeskTop^.ExecView(D) of
      cm2: begin
        D^.GetData(Data); {Получаем новые значения}
        with Data do begin
          assign(n,'found.dat');
          rewrite(n);
          assign(f,'base.dat');
          reset(f);
          seek(f,0);
          while not(eof(f)) do begin
            read(f,bkfind);
            if bkfind.name=I1_Data then
              write(n,bkfind);
          end;
        end;
        close(n);
        NewWindow;
      end;{cm2}
      cm3: begin
         D^.GetData(Data);
         with Data do
         if not((I1_data<>'') or (I2_Data<>'') or (I3_Data<>'')) then
           MessageBox('Вы незаполнили все поля',NIL,0)
         else begin
           seek(f,FileSize(f));
           val(I4_Data,BkFind.year,i);
           BkFind.name:=I1^.Data^;
           BkFind.author:=I2^.Data^;
           BkFind.section:=I3^.Data^;
           BkFind.description:=I5^.Data^;
           Write(f,BkFind);
           MessageBox('Книга добавлена в базу ',NIL,0);
         end;
       end;{cm3}
    end; {case}
    close(f);
end; {MyApp.GetDialog}
 
{------------------}
 
Procedure TMyDialog.HandleEvent;
{Обрабатывает команды cm2, cm3,cm4}
begin
  Inherited HandleEvent(Event);
  if Event.What = evCommand then
  case Event.Command of
    cm2:EndModal(cm2);{╟ртхЁ°шЄ№ ё ъюьрэфющ cm2}
    cm3:EndModal(cm3);{╟ртхЁ°шЄ№ ё ъюьрэфющ cm3}
    cm4:EndModal(cm4);
  end;
  ClearEvent(Event) {╬ўшёЄшЄ№ фЁєушх ёюс√Єш*}
end {TMyDialog.HandleEvent} ;
 
{------------------}
 
Procedure MyApp.NewWindow;
{открывает новое окно}
var
  W: PWindow;
  name: String;
begin
  {создаем коллекцию текстовых строк:}
  Lines := New(PCollection, Init(10,5));
  assign(n,'found.dat');
  reset(n);
  if IOResult = 0 then
    begin {Файл успешно открыт}
    with Lines^ do while not EOF(n) do
      begin
        Read(n,bk);
        Insert(NewStr(bk.name));
      end;
    end
  else {Файл не был открыт}
  Lines^.Insert (NewStr('Ничего не найдено'));
  Close (n);
  {Создается окно со скроллером: }
  DeskTop^.GetExtent(R);
  W:=New(PWindow,Init(R, 'Найдено:',0));
  with W^ do
    begin
      GetClipRect(R);
      R.Grow(-1, -1);
      Insert(New(PInterior,Init(R,StandardScrollBar(
        sbHorizontal+sbHandleKeyboard),
        StandardScrollBar(sbvertical+sbHandleKeyboard))));
    end;
  DeskTop^.Insert(W);
end {MyApp.NewWindow};
 
{------------------}
 
Constructor TInterior.Init;
  {Создается окно со скроллером}
begin
  Inherited Init (R, SX, SY);
  GrowMode := gfGrowHiX+gfGrowHiY;
  SetLimit(128, Lines^.count- 1);
end {Tinterior.Init};
 
{------------------}
 
Procedure TInterior. Draw;
{Выводит на экран содержимое окна скроллера}
var Y: Integer;
    B: TDrawBuffer;
begin
  for Y := 0 to pred(Size.Y) do
  begin
    MoveChar(B,' ',GetColor(1),Size.X);
    if (Y+Delta.Y<Lines^.Count)and(Lines^.At(Y+Delta.Y)<>NIL) then
    begin
      S:=PString(Lines^.At(Y+Delta.Y))^;
      MoveStr(B,copy(s,Delta.X+1,Length(s)-Delta.X),GetColor(1));
    end;
    WriteLine(0,Y,Size.X,1,B);
  end;
end{TInterior.Draw};
 
{------------------}
 
begin
  P.Init;
  P.Run;
  P.Done;
end.

uses crt;
type book=record
         name:string[45];{название книги}
         author:string[45];{автор книги}
         section:string[45];{раздел в котором находится книга}
         year:integer;{год издания}
         numpages:integer;{количество страниц}
         description:string;{Описание книги}
    end;
var f:file of book;
    s,s1:book;
begin
  assign(f,'base.dat');
  reset(f);
 
           s1.name:='Ivanov'{I1^.Data^};
           s1.author:='Ivanov'{I2^.Data^};
           s1.section:='Ivanov'{I3^.Data^};
           s1.year:=1999;
           s1.description:='Ivanov'{I5^.Data^};
           Write(f,s1);
           reset(f);
  while not(eof(f)) do
  begin
       read(f,s);
       writeln(s.name);
  end;
readkey;
end.

assign(f,'base.dat');
          reset(f);
          seek(f,0);//Это зачем? Уберите
          while not(eof(f)) do begin
            read(f,bkfind);
            if bkfind.name=I1_Data then
              write(n,bkfind);
          end;