Приложение д Текст программы, выполненной в Delphi

Листинг Project:

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.Run;

end.

Листинг Unit1

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids, ValEdit, OleCtrls, SHDocVw,

jpeg, Calendar;

type

TForm1 = class(TForm)

ListBox1: TListBox;

WebBrowser1: TWebBrowser;

Timer1: TTimer;

Button1: TButton;

Button2: TButton;

Image1: TImage;

Label1: TLabel;

Button3: TButton;

Button4: TButton;

procedure FormShow(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);

begin

Form2.showmodal;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.caption:=TimeToStr(Time);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var h:string;

Function GetEXEPath: string;

begin

result := ExtractFilePath(Application.ExeName);

end;

begin

Case ListBox1.ItemIndex of

1: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Введение.mht');

end;

2: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

3: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Мыслительные операции с образами.mht');

end;

4: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Основные мнемотехнические понятия.mht');

end;

5: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Четыре этапа запоминания.mht');

end;

6: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Приемы, методы и техника запоминания.mht');

end;

7: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Правила образования ассоциаций.mht');

end;

8: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Приемы образования ассоциативной связи.mht');

end;

9: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Прием «Цепочка».mht');

end;

10: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Прием «Матрешка».mht');

end;

11: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Метод Цицерона.mht');

end;

12: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Метод свободных ассоциаций.mht');

end;

13: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Буквенно-цифровой код (БЦК).mht');

end;

14: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения1.mht');

end;

15: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Домашнее задание1.mht');

end;

16: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

17: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

18: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Как регулировать процесс запоминания.mht');

end;

19: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Метод активного повторения.mht');

end;

20: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Прием символизации.mht');

end;

21: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Прием привязки к хорошо знакомой информации.mht');

end;

22: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Прием кодирования по созвучию.mht');

end;

23: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Прием образования слова по согласным буквам.mht');

end;

24: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Прием образования слова из слогов.mht');

end;

25: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Фиксированные образные коды двузначных чисел.mht');

end;

26: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения2.mht');

end;

27: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Домашнее задание2.mht');

end;

28: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

29: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

30: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Виды запоминаемой информации.mht');

end;

31: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Эффекты.mht');

end;

32: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Метод наводящих ассоциаций(МНА).mht');

end;

33: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Техника запоминания географических названий.mht');

end;

34: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Техника запоминания исторических дат.mht');

end;

35: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения3.mht');

end;

36: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Домашнее задание3.mht');

end;

37: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

38: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

39: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Характеристики процесса запоминания.mht');

end;

40: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Образные коды.mht');

end;

41: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Образные коды названий месяцев.mht');

end;

42: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Техника запоминания точных дат.mht');

end;

43: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Образные коды дней недели.mht');

end;

44: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание расписаний уроков.mht');

end;

45: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения4.mht');

end;

46: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Домашнее задание4.mht');

end;

47: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

48: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

49: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Психотехнические упражнения.mht');

end;

50: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание на разные части образа.mht');

end;

51: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Прием возврата.mht');

end;

52: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Выделение невидимых частей образа.mht');

end;

53: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Техника запоминания формул.mht');

end;

54: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Метод сжатия информации.mht');

end;

55: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения5.mht');

end;

56: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Домашнее задание5.mht');

end;

57: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

58: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

59: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Прием «фокусировки» информации на одном образе.mht');

end;

60: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание хронологических таблиц.mht');

end;

61: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Метод выделения отличительного признака.mht');

end;

62: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание Ф.И.О..mht');

end;

63: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения6.mht');

end;

64: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Домашнее задание6.mht');

end;

65: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

66: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

67: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание цифровой информации.mht');

end;

68: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения-7-0.mht');

end;

70: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Обобщение пройденного материала.mht');

end;

71: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Задание.mht');

end;

72: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения-7-1.mht');

end;

75: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Техника запоминания телефонных номеров.mht');

end;

76: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения8.mht');

end;

77: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Домашнее задание8.mht');

end;

78: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

79: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

80: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание энциклопедических сведений.mht');

end;

81: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Изоляция образных кодов.mht');

end;

82: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Кольцевые цепочки.mht');

end;

83: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание смешанных таблиц.mht');

end;

84: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание чисел с запятыми.mht');

end;

85: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения9.mht');

end;

86: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Домашнее задание9.mht');

end;

87: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Пусто.mht');

end;

88: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Занятие 10.mht');

end;

89: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание адресов.mht');

end;

90: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание номеров автомобилей.mht');

end;

91: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Запоминание блока информации о человеке.mht');

end;

92: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Упражнения10.mht');

end;

93: begin

WebBrowser1.Navigate(PANsiChar(GetEXEPath)+'Домашнее задание10.mht');

end;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

vaIn, vaOut: OleVariant;

begin

WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,

vaIn, vaOut);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Application.Minimize;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Form3.show;

end;

end.

Листинг Unit2:

unit Unit2;

interface

uses

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

Dialogs, jpeg, ExtCtrls, ComCtrls;

type

TForm2 = class(TForm)

Timer1: TTimer;

ProgressBar1: TProgressBar;

Timer2: TTimer;

Image1: TImage;

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormKeyPress(Sender: TObject; var Key: Char);

procedure Timer2Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject);

begin

Close;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Close;

end;

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);

begin

Close;

end;

procedure TForm2.Timer2Timer(Sender: TObject);

begin

ProgressBar1.Position:=ProgressBar1.Position+1;

end;

end.

Листинг Unit3:

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, DB, DBTables, ExtCtrls, DBCtrls, Grids,

DBGrids;

type

TForm3 = class(TForm)

Label1: TLabel;

Label2: TLabel;

DataSource1: TDataSource;

Table1: TTable;

Query1: TQuery;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

stDay : array[1..7] of string[11] = ('воскресенье','понедельник','вторник',

'среда','четверг','пятница','суббота');

stMonth : array[1..12] of string[8] = ('января','февраля','марта',

'апреля','мая','июня','июля',

'августа','сентября','октября',

'ноября','декабря');

implementation

uses Unit1, DateUtils;

{$R *.dfm}

end.