Конрольная работа по "Программированию"

        Form1.Memo1.Lines.Clear;

 

        //Получение первоначальных данных

        Read(FileKn,st);

        sn := st.Name;

        sa := st.Avtor;

        k := st.KolS;

 

        //поиск  нужной информации

        While Not Eof(FileKn) Do

        Begin

          Read(FileKn,st);

          If st.KolS > k

            Then

              Begin

                sn := st.Name;

                sa := st.Avtor;

                k := st.KolS;

              End;

 

        End;

 

        //Вывод результата

        Form1.Memo1.Lines.Add('Наибольшее  количество страцин в книге  "' + sn + '", автор - ' + sa);

        Form1.Memo1.Lines.Add('Количество  страниц = ' + IntToStr(k));

 

      End;

 

 

  //Поиск книги данного  автора, изданных с .. года, в .. издании

  If Form1.RadioButton3.Checked = True

    Then

      Begin

        //Поиск  нужной информации и вывод  ее на экран

        k := 0;

        Form1.Memo1.Lines.Clear;

        While Not Eof(FileKn) Do

        Begin

          Read(FileKn,st);

          If (st.Avtor = Form1.Edit6.Text) and (st.GodI >= StrToInt(Form1.Edit7.Text)) and (st.Izdat = Form1.Edit8.Text)

            Then

              Begin

                Form1.Memo1.Lines.Add('- Книга:  "' + st.Name + '; издана в ' + IntToStr(st.GodI) + ' году; издательство "' + st.Izdat + '"');

                k := k+1;

              End;

 

        End;

 

        //Вывод  информации

        ShowMessage('Найдено  совпадений - '+ IntToStr(k));

 

        If k = 0

          Then

            Begin

              Form1.Memo1.Lines.Add('Поиск не дал результатов');

              Form1.Memo1.Lines.Add('попробуйте повторить  запрос с другими данными');

            End;

      End;

 

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

 

  //Привязка переменной  к реальному файлу

  If Form1.SaveDialog1.Execute

    Then

      Begin

        AssignFile(FileKn,Form1.SaveDialog1.FileName +'.dat');

 

        putF := Form1.SaveDialog1.FileName +'.dat';

 

        //Создание файла

        Rewrite(FileKn);

 

        //Закрытие  файла

        CloseFile(FileKn);

 

        //Разблокировка  возможности ввода данных

        Form1.GroupBox2.Visible := True;

      End;

 

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

 

  //Получение пути к  уже существуюющему файлу

  If Form1.OpenDialog1.Execute

    Then

      Begin

        putF := Form1.OpenDialog1.FileName;

 

        //Разблокировка  возможности ввода данных

        Form1.GroupBox2.Visible := True;

      End;

 

end;

 

procedure TForm1.Button5Click(Sender: TObject);

begin

 

  //Получение пути к  уже существуюющему файлу

  If Form1.OpenDialog1.Execute

    Then putOt := Form1.OpenDialog1.FileName;

 

  //Видимость параметров запроса

  Form1.GroupBox4.Visible := True;

  Form1.GroupBox5.Visible := True;

 

end;

 

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

 

  //Видимость нужных  параметов запроса и невидимость  ненужных

  Form1.Label6.Visible := True;

  Form1.Edit6.Visible := True;

  Form1.Label7.Visible := False;

  Form1.Edit7.Visible := False;

  Form1.Label8.Visible := False;

  Form1.Edit8.Visible := False;

 

  //очистка поля ввода

  Form1.Edit6.Clear;

 

 

end;

 

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

 

  //Видимость нужных  параметов запроса и невидимость  ненужных

  Form1.Label6.Visible := False;

  Form1.Edit6.Visible := False;

  Form1.Label7.Visible := False;

  Form1.Edit7.Visible := False;

  Form1.Label8.Visible := False;

  Form1.Edit8.Visible := False;

 

end;

 

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

 

  //Видимость нужных  параметов запроса и невидимость  ненужных

  Form1.Label6.Visible := True;

  Form1.Edit6.Visible := True;

  Form1.Label7.Visible := True;

  Form1.Edit7.Visible := True;

  Form1.Label8.Visible := True;