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

text:string[255];

quest:array[1..3] of string[100];

count:array[1..3] of byte;

end;

var

testfilename: string;

test:array[1..100] of ttest;

testnum:byte;

implementation

end.

Листинг программы ТС:

unit Mainfrm;

interface

uses

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

StdCtrls, Spin, TestTypes;

type

TfrmMain = class(TForm)

rb1: TRadioButton;

rb2: TRadioButton;

rb3: TRadioButton;

Edit1: TEdit;

Label1: TLabel;

SpinEdit1: TSpinEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;