regenerator.pas

《SESyetem节能模拟系统(版本:1.01a Final)》为自由软件,对热风炉进行 热平衡计算、传热模拟、燃烧优化、操作优化等设计。 本软件用Dephi6.0编写

unit Regenerator;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls;

type
  TRegeneratorForm = class(TForm)
    BOKButton: TBitBtn;
    BCancelButton: TBitBtn;
    Label8: TLabel;
    DiameterEdit: TEdit;
    Label10: TLabel;
    HieghtEdit: TEdit;
    Label11: TLabel;
    TotalAreaEdit: TEdit;
    Label16: TLabel;
    WeightEdit: TEdit;
    Label17: TLabel;
    Label18: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    UpDiameterEdit: TEdit;
    UpAreaEdit: TEdit;
    UpThick1Edit: TEdit;
    UpThick2Edit: TEdit;
    Label23: TLabel;
    MiddleDiameterEdit: TEdit;
    MiddleAreaEdit: TEdit;
    MiddleThick1Edit: TEdit;
    MiddleThick2Edit: TEdit;
    Label24: TLabel;
    DownDiameterEdit: TEdit;
    DownAreaEdit: TEdit;
    DownThick1Edit: TEdit;
    DownThick2Edit: TEdit;
    Label25: TLabel;
    Label26: TLabel;
    WindQCoeffEdit: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure BOKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RegeneratorForm: TRegeneratorForm;

implementation

{$R *.dfm}
uses Declare, Analog;

procedure TRegeneratorForm.FormCreate(Sender: TObject);
begin
    DiameterEdit.Text :=  FloatToStr(SESystemElement.structure[1]);
    HieghtEdit.Text :=  FloatToStr(SESystemElement.structure[2]);
    TotalAreaEdit.Text :=  FloatToStr(SESystemElement.structure[3]);
    WeightEdit.Text :=  FloatToStr(SESystemElement.structure[4]);

    UpDiameterEdit.Text :=  FloatToStr(SESystemElement.grille[1][1]);
    UpAreaEdit.Text :=  FloatToStr(SESystemElement.grille[1][2]);
    UpThick1Edit.Text  :=  FloatToStr(SESystemElement.grille[1][3]);
    UpThick2Edit.Text  :=  FloatToStr(SESystemElement.grille[1][4]);

    MiddleDiameterEdit.Text :=  FloatToStr(SESystemElement.grille[2][1]);
    MiddleAreaEdit.Text :=  FloatToStr(SESystemElement.grille[2][2]);
    MiddleThick1Edit.Text  :=  FloatToStr(SESystemElement.grille[2][3]);
    MiddleThick2Edit.Text  :=  FloatToStr(SESystemElement.grille[2][4]);

    DownDiameterEdit.Text :=  FloatToStr(SESystemElement.grille[3][1]);
    DownAreaEdit.Text :=  FloatToStr(SESystemElement.grille[3][2]);
    DownThick1Edit.Text  :=  FloatToStr(SESystemElement.grille[3][3]);
    DownThick2Edit.Text  :=  FloatToStr(SESystemElement.grille[3][4]);

    WindQCoeffEdit.Text :=FloatToStr(SESystemElement.wind);
end;

procedure TRegeneratorForm.BOKButtonClick(Sender: TObject);
begin
     SESystemElement.structure[1]:=  StrToFloat(DiameterEdit.Text);
     SESystemElement.structure[2]:=  StrToFloat(HieghtEdit.Text);
     SESystemElement.structure[3]:=  StrToFloat(TotalAreaEdit.Text);
     SESystemElement.structure[4]:=  StrToFloat(WeightEdit.Text);

     SESystemElement.grille[1][1]:=  StrToFloat(UpDiameterEdit.Text);
     SESystemElement.grille[1][2]:=  StrToFloat(UpAreaEdit.Text);
     SESystemElement.grille[1][3]:=  StrToFloat(UpThick1Edit.Text);
     SESystemElement.grille[1][4]:=  StrToFloat(UpThick2Edit.Text);

     SESystemElement.grille[2][1]:=  StrToFloat(MiddleDiameterEdit.Text);
     SESystemElement.grille[2][2]:=  StrToFloat(MiddleAreaEdit.Text);
     SESystemElement.grille[2][3]:=  StrToFloat(MiddleThick1Edit.Text);
     SESystemElement.grille[2][4]:=  StrToFloat(MiddleThick2Edit.Text);

     SESystemElement.grille[3][1] :=  StrToFloat(DownDiameterEdit.Text);
     SESystemElement.grille[3][2]:=  StrToFloat(DownAreaEdit.Text);
     SESystemElement.grille[3][3]:=  StrToFloat(DownThick1Edit.Text);
     SESystemElement.grille[3][4]:=  StrToFloat(DownThick2Edit.Text);

     SESystemElement.wind:=StrToFloat( WindQCoeffEdit.Text);

     AnalogForm.AnalogMemo.Lines.Add('蓄热体结构');
     AnalogForm.AnalogMemo.Lines.Add('直径(m):'+FloatToStr(SESystemElement.structure[1])+','+
                                     '高度(m):'+FloatToStr(SESystemElement.structure[2])+','+
                                     '总蓄热面积(m^2):'+FloatToStr(SESystemElement.structure[3])+','+
                                     '蓄热体重量(kg):'+FloatToStr(SESystemElement.structure[4]));

     AnalogForm.AnalogMemo.Lines.Add('格子砖参数');
     AnalogForm.AnalogMemo.Lines.Add('上段,格孔直径(m):'+FloatToStr(SESystemElement.grille[1][1])+','+
                                     '活面积(m^2/m^2):'+FloatToStr(SESystemElement.grille[1][2])+','+
                                     '当量厚度(m):'+FloatToStr(SESystemElement.grille[1][3])+','+
                                     '格砖厚度(m):'+FloatToStr(SESystemElement.grille[1][4]));
     AnalogForm.AnalogMemo.Lines.Add('中段,格孔直径(m):'+FloatToStr(SESystemElement.grille[2][1])+','+
                                     '活面积(m^2/m^2):'+FloatToStr(SESystemElement.grille[2][2])+','+
                                     '当量厚度(m):'+FloatToStr(SESystemElement.grille[2][3])+','+
                                     '格砖厚度(m):'+FloatToStr(SESystemElement.grille[2][4]));
     AnalogForm.AnalogMemo.Lines.Add('下段,格孔直径(m):'+FloatToStr(SESystemElement.grille[3][1])+','+
                                     '活面积(m^2/m^2):'+FloatToStr(SESystemElement.grille[3][2])+','+
                                     '当量厚度(m):'+FloatToStr(SESystemElement.grille[3][3])+','+
                                     '格砖厚度(m):'+FloatToStr(SESystemElement.grille[3][4]));
     AnalogForm.AnalogMemo.Lines.Add('风量参数');
     AnalogForm.AnalogMemo.Lines.Add('初始无因次风量系数:'+FloatToStr(SESystemElement.wind));

end;

end.