Создание модульной программы в среде Delphi

          StringGrid1.Cells[0,j]:=IntToStr(j);

          end;

    end; 

    // имена полей

    procedure TForm1.Button3Click(Sender: TObject);

    begin

    Stringgrid1.Cells[0,0]:= 'N записи';

    Stringgrid1.Cells[1,0]:= 'Фамилия';

    Stringgrid1.Cells[2,0]:= 'Должность';

    Stringgrid1.Cells[3,0]:= 'Ученая степень';

    Stringgrid1.Cells[4,0]:= 'Кафедра';

    end; 

    // запись в мемо

    procedure TForm1.Button1Click(Sender: TObject);

    begin

          for j:=1 to n do

          begin

          for i:=1 to 4 do

          begin

          Memo1.Lines.add(Stringgrid1.Cells[i,j]);

          end;

          end;

    end; 

    // запись в 1-ю стоку

    procedure TForm1.Button2Click(Sender: TObject);

    begin

          f:=Memo1.Lines;

          StringGrid1.ColCount:=4*n+1;

          StringGrid1.Rows[1]:=f;

    end; 

    // запись в матрицу

    procedure TForm1.Button4Click(Sender: TObject);

    begin

          k:=5;

          for j:=2 to n do

          begin

          for i:=1 to 4 do

          begin

          StringGrid1.Cells[i,j]:=StringGrid1.Cells[k,1];

          k:=k+1;

          end;

          end;

          StringGrid1.Colcount:=5;

          StringGrid1.Cells[0,1]:= '1';

    end; 

    // поиск

    procedure TForm1.Button6Click(Sender: TObject);

    begin

    for  j:=tj+1 to n do

    begin

    if  StringGrid1.Cells[1,j]=Edit2.Text then

    begin

    Label7.Caption:=StringGrid1.Cells[1,j];

    Label8.Caption:=StringGrid1.Cells[2,j];

    Label9.Caption:=StringGrid1.Cells[3,j];

    Label10.Caption:=StringGrid1.Cells[4,j];

    tj:=j;

    break;

    end;

    end;

    end; 

    // сброс № строки

    procedure TForm1.Button7Click(Sender: TObject);

    begin

    tj:=0;

    end; 

    procedure TForm1.N4Click(Sender: TObject);

    begin

    close;

    end;

    end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

    ПРИЛОЖЕНИЕ 6

    Листинг программы теста 

  unit Unit1;

  interface

  uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, StdCtrls, Menus; 

  type

    TForm1 = class(TForm)

      Label1: TLabel;

      Button1: TButton;

      Label2: TLabel;

      Button2: TButton;

      Button3: TButton;

      Button4: TButton;

      Button5: TButton;

      Label3: TLabel;

      Button6: TButton;

      MainMenu1: TMainMenu;

      N1: TMenuItem;

      N2: TMenuItem;

      N3: TMenuItem;

      N4: TMenuItem;

      ColorDialog1: TColorDialog;

      procedure Button1Click(Sender: TObject);

      procedure Button2Click(Sender: TObject);

      procedure Button3Click(Sender: TObject);

      procedure Button4Click(Sender: TObject);

      procedure Button5Click(Sender: TObject);

      procedure Button6Click(Sender: TObject);

      procedure N3Click(Sender: TObject);

      procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

      procedure N2Click(Sender: TObject);

      procedure N4Click(Sender: TObject); 

    private

      { Private declarations }

    public

      { Public declarations }

    end; 

  var

    Form1: TForm1;

    A,C,E,G:integer;

  const questions:array[1..7]of string=

  ('1.  Моросящий дождь:',

   '2.  Гроза:',

   '3.  Ветер:',

   '4.  Туман:',

   '5.  Снег:',

   '6. Град:',

   '7. Солнце:'); 

    const answers1:array[1..7]of string=

    ('хочется спать',

   'страх',

   'нужно снять с веревки белье',

   'ничего не видно',

   'засыпается за воротник',

    'побьет посевы',

   'хочется зажмуриться'); 

   const answers2:array[1..7]of string=

    ('печаль, слезы',

   'любопытство',

   '"Унесенные ветром"',

   'опасность автокатастрофы',

   'лыжная прогулка',

   'ничего себе! ',

   'загар'); 

   const answers3:array[1..7]of string=

    ('все зависит от моего внутреннего настроения',

   'восторг перед разбушевавшейся  стихией',

   'вас ждут перемены',

    'сгущенное молоко',

   'белый танец',

   'барабанная дробь',

   'ласковое поглаживание');

  implementation

  {$R *.dfm} 

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  C:=0;

  E:=0;

  G:=0;

  button2.Visible:=true;

  button3.Visible:=true;

  button4.Visible:=true;

  label2.Visible:=true;

  A:=1;

  label2.Caption:=questions[A];

  button2.Caption:=answers1[A];

  button3.Caption:=answers2[A];

  button4.Caption:=answers3[A];

  button1.Visible:=false;

  end; 
 

  procedure TForm1.Button2Click(Sender: TObject);

  begin

   A:=A+1;

   C:=C+1;

  If A=8 then

  begin

  label2.Visible:=false;

  button2.Visible:=false;

  button3.Visible:=false;

  button4.Visible:=false;

  button5.Visible:=true;

  end

  else

  begin

   label2.Caption:=questions[A];

   button2.Caption:=answers1[A];

   button3.Caption:=answers2[A];

   button4.Caption:=answers3[A];

  end;

  end; 

  procedure TForm1.Button3Click(Sender: TObject);

  begin

   A:=A+1;

   E:=E+1;

   If A=8 then

  begin

  label2.Visible:=false;

  button2.Visible:=false;

  button3.Visible:=false;

  button4.Visible:=false;

  button5.Visible:=true;

  end

  else

  begin

   label2.Caption:=questions[A];

   button2.Caption:=answers1[A];

   button3.Caption:=answers2[A];

   button4.Caption:=answers3[A];

  end;

  end; 

  procedure TForm1.Button4Click(Sender: TObject);

  begin

   A:=A+1;

   G:=G+1;

   If A=8 then

  begin

  label2.Visible:=false;

  button2.Visible:=false;

  button3.Visible:=false;

  button4.Visible:=false;

  button5.Visible:=true;

  end

  else

  begin

   label2.Caption:=questions[A];

   button2.Caption:=answers1[A];

   button3.Caption:=answers2[A];

   button4.Caption:=answers3[A];

  end;

  end; 

  procedure TForm1.Button5Click(Sender: TObject);

  begin

  if (C>G) and (C>E) then label3.Caption:='Вы не очень-то оптимистичны. У вас явная склонность к ипохондрии и жалобам на жизнь. Любая неприятность способно вырасти для вас в целую проблему. Относитесь проще к житейским неурядицам и больше улыбайтесь.';

  if (G>C) and (G>E) then Label3.Caption:='Вы спокойны, практичны, рассудительны. На вас можно положиться, вы не склонны к колебаниям настроения, и вам никогда не попадает "вожжа под хвост". Вы умеете удивляться и хорошо ладите с людьми. Будьте чуточку смелее в новых начинаниях.';

  if (E>C) and (E>G) then Label3.Caption:='Ваша душа умеет петь и радоваться. Если вы еще не реализовались в творческой деятельности, стоит об этом задуматься всерьез. Только не витайте в облаках слишком высоко и долго, порой надо ходить и по земле. ';