Реферат: Разработка программы психотестирования

Пример представляет собой несложную программу, позволяющую просматривать и редактировать текстовые файлы. Окно этой программы показано на рис. 2. 8.

Рисунок 2. 8 – Окно программы-примера

Ниже будет представлен листинг программы:

unit Unit1;

{Главный модуль программы}

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu; {Главное меню}

N1: TMenuItem; {Меню “Файл”}

N2: TMenuItem; {Меню “Открыть”}

N3: TMenuItem; {Меню “Сохранить”}

N4: TMenuItem; {Меню “Выход”}

N5: TMenuItem; {Разделительная линия}

N6: TMenuItem; {Меню “Помощь”}

N7: TMenuItem; {Меню “О программе”}

Memo1: TMemo;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

PopupMenu1: TPopupMenu; {Всплывающее меню}

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }