Реферат Розробка тестового додатку "Компоненти меню Delphi"

и сам програмний код.

Список літератури

1. Архангельський А.Я. Програмування в Delphi 5. - М.: Нолидж, 2000

2. Архангельський А.Я. Довідкове допомога по Delphi 5. - М.: Нолидж, 2000. p> 3. Баас Р. та інші. Delphi 5. Для користувача. - Київ, 2000. p> 4. Бобровський В.А. Delphi 5. Початковий курс. - СПб., 1998. p> 5. Бобровський В.А. Delphi 5. Навчальний курс. - СПб., 2000. p> 6. Пачок Ксав'є. Програмування в Delphi 5. Керівництво розробника. - М.: Нолидж, 2000. p> 7. Рейсдорф Кент. Delphi 4. Опануй самостійно. - М.: Біном, 1999. p> 8. Свиридов С. та інші. Створення мультимедійних додатків. - М.: Нолидж, 2000. p> 9. Фаранов В.В. Навчальний посібник по Delphi 4. - СПб., 1999. p> 10. Ебнер Міхаель. Delphi 5. Керівництво розробника. - Київ, 2000. br/>

Додаток 1. Лістинг програми

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Gauges, Menus, jpeg;

type

TForm1 = class (TForm)

Panel1: TPanel;

Button1: TButton;

Image1: TImage;

Label5: TLabel;

Label1: TLabel;

Gauge1: TGauge;

MainMenu1: TMainMenu;

File1: TMenuItem;

Save1: TMenuItem;

exit1: TMenuItem;

Help2: TMenuItem;

About1: TMenuItem;

Contents1: TMenuItem;

SaveDialog1: TSaveDialog;

Memo1: TMemo;

N1: TMenuItem;

Timer1: TTimer;

Label2: TLabel;

procedure FormActivate (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure Button1Click (Sender: TObject);

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;// повідомлення, соотв. ...