• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Тлумачний словник
Авто
Автоматизація
Архітектура
Астрономія
Аудит
Біологія
Будівництво
Бухгалтерія
Винахідництво
Виробництво
Військова справа
Генетика
Географія
Геологія
Господарство
Держава
Дім
Екологія
Економетрика
Економіка
Електроніка
Журналістика та ЗМІ
Зв'язок
Іноземні мови
Інформатика
Історія
Комп'ютери
Креслення
Кулінарія
Культура
Лексикологія
Література
Логіка
Маркетинг
Математика
Машинобудування
Медицина
Менеджмент
Метали і Зварювання
Механіка
Мистецтво
Музика
Населення
Освіта
Охорона безпеки життя
Охорона Праці
Педагогіка
Політика
Право
Програмування
Промисловість
Психологія
Радіо
Регилия
Соціологія
Спорт
Стандартизація
Технології
Торгівля
Туризм
Фізика
Фізіологія
Філософія
Фінанси
Хімія
Юриспунденкция

Листинг 5. Текст файла проекта Lab3.dpr

program Lab3;

uses
Forms,
MainUnit in 'MainUnit.pas' {MainForm},
ListInput in 'ListInput.pas' {ListForm},
GridInput in 'GridInput.pas' {GridForm};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm (TMainForm, MainForn);
Application.CreateForm (TListForm, ListForm);
Application.CreateForm(TGridForm, GridForm);
Application.Run;
end.

Листинг 6. Текст главного модуля MainUnit.pas

unit MainUnit;

Interface

uses
Windows, Messages, SysUtiis, Classes, Graphics, StdCtrls, Forms, Dialogs;

type
TMainForm = class(TForm)
GroupBox1: TGroupBox;
ButtonList: TButton;
Label1: TLabel;
Label2: TLabel;
LabelProduct1: TLabel;
LabelSum1: TLabel;
GroupBox2: TGroupBox;
Label3: TLabel;
Label4: TLabel;
LabelProduct2: TLabel;
LabelSum2: TLabel;
ButtonGrid: TButton;
ButtonClose: TBLtton;
procedure ButtonListClick(Sender: TObject);
procedure ButtonCloseClick(Sender: Tabject);
procedure ButtonGridClick(Sender: TObject);
end;

var
MainForm: TMainForm;

Переглядів: 314