Модуль просмотра файла с решением в окне формы

unit U_resh;

interface

uses

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

Dialogs, StdCtrls, Buttons;

type

TForm_resh = class(TForm)

OpenDialog1: TOpenDialog;

BitBtn_View: TBitBtn;

Memo_View: TMemo;

BitBtn_close: TBitBtn;

procedure BitBtn_ViewClick(Sender: TObject);

procedure BitBtn_closeClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_resh: TForm_resh;

implementation

{$R *.DFM}

procedure TForm_resh.BitBtn_ViewClick(Sender: TObject);

begin

if OpenDialog1.Execute then

Memo_View.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm_resh.BitBtn_closeClick(Sender: TObject);

begin

close

end;

end.

Приложение b.10. Описание работы программы

Взаимодействие пользователя и программы осуществляется с помощью меню следующим образом.

1. На экран выводится окно главного модуля – для выбора нужного пункта меню (см. приложение В.13, рис.1).

2. При выборе пункта «Исходные данные» (см. приложение В.13, рис.2) на экране появится окно «Исходные данные», на котором будут выведены две панели: левая – для ввода состава газа в сухом состоянии, и правая – для вывода состава газа после пересчета его на влажное состояние. Кроме того, в этом окне необходимо ввести исходные значения входных параметров:

1. влажности сухого газа – dс.г.;

2. температуры атмосферного воздуха – t;

3. коэффициента избытка воздуха .

В случае ошибки, если сумма процентов  100%, на экран выводится соответствующее сообщение.

Для вычисления результата следует нажать кнопку «Пересчет на влажное состояние». При этом в правом окне появятся соответствующие проценты, и будет выведено значение dс.в. – влагосодержания сухого газа (см. приложение В.13, рис.3). После этого следует нажать кнопку «Выход» и вернуться к главному меню.

3. При выборе пункта меню «Результат» (см. приложение В.13, рис.4) на экране появится окно «Результаты расчета» с активной кнопкой «Расчет горения». При этом, если пункт1 «Исходные данные» не был выполнен, то эта кнопка останется неактивной.

В этом окне надо нажать кнопку «Расчет горения». Теперь в окне появятся результаты расчета (см. приложение В.13, рис.5), и станет активной кнопка «Сохранение рез-тов в файле», которая до расчета была неактивна.

Для сохранения результатов в файле надо щелкнуть одноименную кнопку, в открывшемся окне «Сохранить как» (см. приложение В.13, рис.6) ввести имя текстового файла и указать путь к нему.

Кнопка «Выход» возвращает к исходному меню.

4. При выборе пункта меню «Решение» на экране откроется окно «Файл с решением» (см. приложение В.13, рис.7), в котором следует нажать кнопку «Просмотр файла с решением». При этом появится диалоговое окно «Открыть» (см. приложение В.13, рис.8), в котором надо выбрать файл с результатами расчета, после чего решение будет выведено на экран (см. приложение В.13, рис.9). Этот же файл можно распечатать с помощью любого текстового редактора. Пример файла с решением приведен в приложении В.14. Кнопка «Выход» возвращает в главное меню.

5. Пункт «Выход» главного меню закрывает окно приложения.