Реферат: Разработка тестового приложения Компоненты меню Delphi

procedure SelectorClick(Sender: TObject);

Продолжение приложения 1

procedure About1Click(Sender: TObject);

procedure Save1Click(Sender: TObject);

procedure Contents1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

x:Real;

implementation

uses Unit2, Unit3;

const

N_ANSWERS=4;

N_LEVEL=4;

var

answer: array[1..N_ANSWERS] of Tlabel; //альтернативные ответы

selector: array[1..N_ANSWERS+1] of TRadioButton;// кнопки выбора ответа

f:TextFile;

fn:string; // имя файла вопросов

level:array[1..N_LEVEL] of integer;// сумма, соотв. уровню

mes:array[1..N_LEVEL] of string; // сообщение, соотв. уровню

score:array[1..N_ANSWERS] of integer; // очки за выбор ответа

summa:integer; // набрано очков