Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата

procedure BitBtn2Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var
Form4: TForm4;
Conf:TIniFile;

implementation

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject); begin
ModalResult:=mrCancel; end;

procedure TForm4.BitBtn2Click(Sender: TObject); begin try
Conf:=TIniFile.Create(GetCurrentDir+'Config.ini'); with Conf do begin case RadioGroup1.ItemIndex of

0: WriteString('BLOCK_CONFIG','NUM_BLOCKS','1');

1: WriteString('BLOCK_CONFIG','NUM_BLOCKS','2');

2: WriteString('BLOCK_CONFIG','NUM_BLOCKS','3'); end; case RadioGroup2.ItemIndex of

0: WriteString('SORT_CONFIG','SORT_TYPE','1');

1: WriteString('SORT_CONFIG','SORT_TYPE','2');

2: WriteString('SORT_CONFIG','SORT_TYPE','3'); end;

WriteString('MARK_CONFIG','MARKS_TYPE','ONE_IN_ONE');

WriteString('MARK_CONFIG','MARKS_VALUE',Edit1.Text);

UpdateFile; end;
Conf.Free;
Application.MessageBox('Настройки успешно сохранены!','Сообщение',mb_Ok+mb_IconAsterisk);
ModalResult:=mrCancel; except

Application.MessageBox('Ошибка записи настроек в INI- файл!','Ошибка',mb_Ok+mb_IconHand);

Exit; end; end;

end.

Модуль 5.
Код этого модуля представляет собой программный вариант распределения участников по местам, а также построение распределений по указанным параметрам. Проще говоря, модуль отвечает за окно распределения по местам и все действия, производимые в нем. unit Unit5;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, Buttons, DB, DBTables,
INIFiles,
TeeProcs, TeEngine, Chart, TeeFunci, Series, Menus;

type
TForm5 = class(TForm)

Panel1: TPanel;

Рекомендуем скачать другие рефераты по теме: реферат,, развитие россии реферат.





Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата