Реферат: Экспертная система

« Back » - осуществляется переход на предыдущий уровень (вопрос)

«О программе»- выводит информацию о дате, месте создания и создателе программы.

4 Текст программы

unit Unit1;

interface

uses

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

StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Back: TButton;

Exit: TButton;

Label1: TLabel;

GroupBox1: TGroupBox;

Button5: TButton;

procedure ExitClick(Sender: TObject); // выход из программы

procedure Button1Click(Sender: TObject); // кнопки ответов

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure BackClick(Sender: TObject); //возврат на предыдущий уровень

procedure Button5Click(Sender: TObject); //вызов формы о программе

procedure FormCreate(Sender: TObject); // создание формы программе

private

{ Private declarations }