Высокоуровневые методы информатики и программирования. Сивохин А.В - 77 стр.

      OrlovAllTypeUnit in 'OrlovAllTypeUnit.pas';

     {$R *.res}

     begin
      Application.Initialize;
      Application.CreateForm(TOrlovMainForm, OrlovMainForm);
      Application.Run;
     end.// — 1. Конец корневого модуля.




     unit OrlovMainUnit;//—2. Главный модуль:

     interface

     uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Menus, OrlovArrayUnit, OrlovRecordUnit, OrlovClassUnit,
      OrlovFileUnit, OrlovGraphicUnit, OrlovTableUnit, OrlovAboutUnit;

     type
      TOrlovMainForm = class(TForm)
       OrlovMainMenu: TMainMenu;
       miOrlovArrayForm: TMenuItem;
       miOrlovRecordForm: TMenuItem;
       miOrlovClassForm: TMenuItem;
       miOrlovFileForm: TMenuItem;
       miOrlovGraphicForm: TMenuItem;
       miOrlovTableForm: TMenuItem;
       miOrlovHelpForm: TMenuItem;
       miCreateArrayForm: TMenuItem;
       miShowArrayForm: TMenuItem;
       miHideArrayForm: TMenuItem;
       miCloseArrayForm: TMenuItem;
       miDestroyArrayForm: TMenuItem;
       miExitArrayForm: TMenuItem;
       miCreateRecordForm: TMenuItem;
       miShowRecordForm: TMenuItem;
       miHideRecordForm: TMenuItem;
       miCloseRecordForm: TMenuItem;
       miDestroyRecordForm: TMenuItem;
       miExitRecordForm: TMenuItem;
       miCreateClassForm: TMenuItem;
       miShowClassForm: TMenuItem;
54