operation.pas

来自「《SESyetem节能模拟系统(版本:1.01a Final)》为自由软件,对热」· PAS 代码 · 共 112 行

unit Operation;

interface

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

type
  TOperationForm = class(TForm)
    BOKButton: TBitBtn;
    BCancelButton: TBitBtn;
    Label17: TLabel;
    NeedHotAirTempEdit: TEdit;
    MaxTopWAllTempEdit: TEdit;
    MaxFumeTempEdit: TEdit;
    Label18: TLabel;
    CoalQEdit: TEdit;
    Label8: TLabel;
    CoalTempEdit: TEdit;
    Label19: TLabel;
    HotAirQEdit: TEdit;
    Label12: TLabel;
    ExpendCoeffEdit: TEdit;
    Label7: TLabel;
    Label20: TLabel;
    Label6: TLabel;
    BeforeStoveEdit: TEdit;
    AfterStoveEdit: TEdit;
    Label9: TLabel;
    Label13: TLabel;
    CoolAirEdit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label16: TLabel;
    Label24: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BOKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OperationForm: TOperationForm;

implementation

{$R *.dfm}

uses Declare, Improve;

procedure TOperationForm.FormCreate(Sender: TObject);
begin
         BeforeStoveEdit.Text:=FloatToStr(OperationImproveElement.WindCoefficient[1]);
         AfterStoveEdit.Text:=FloatToStr(OperationImproveElement.WindCoefficient[2]);
         CoolAirEdit.Text:= FloatToStr(OperationImproveElement.WindCoefficient[3]);

         NeedHotAirTempEdit.Text:=FloatToStr(OperationImproveElement.Condition_OperationImprove[1]);
         MaxFumeTempEdit.Text:=FloatToStr(OperationImproveElement.Condition_OperationImprove[2]);
         MaxTopWAllTempEdit.Text:=FloatToStr(OperationImproveElement.Condition_OperationImprove[3]);

         CoalQEdit.Text:=FloatToStr(SESystemElement.q1_inheat[1]);
         HotAirQEdit.Text:=FloatToStr(SESystemElement.q1_inheat[2]);

         ExpendCoeffEdit.Text:= FloatToStr(SESystemElement.process_heatcompute[2]);
         CoalTempEdit.Text:= FloatToStr(SESystemElement.tm_coal);



end;

procedure TOperationForm.BOKButtonClick(Sender: TObject);
begin
         OperationImproveElement.WindCoefficient[1]:=StrToFloat(BeforeStoveEdit.Text);
         OperationImproveElement.WindCoefficient[2]:=StrToFloat(AfterStoveEdit.Text);
         OperationImproveElement.WindCoefficient[3]:= StrToFloat(CoolAirEdit.Text);

         ImproveForm.ImproveMemo.Lines.Add('约束条件');
         ImproveForm.ImproveMemo.Lines.Add('初始无因次风量系数');
         ImproveForm.ImproveMemo.Lines.Add('先行炉:'+FloatToStr(OperationImproveElement.WindCoefficient[1])+','+
                                           '后行炉:'+FloatToStr(OperationImproveElement.WindCoefficient[2])+','+
                                           '掺混冷风:'+FloatToStr(OperationImproveElement.WindCoefficient[3]));

         OperationImproveElement.Condition_OperationImprove[1]:=StrToFloat(NeedHotAirTempEdit.Text);
         OperationImproveElement.Condition_OperationImprove[2]:=StrToFloat(MaxFumeTempEdit.Text);
         OperationImproveElement.Condition_OperationImprove[3]:=StrToFloat(MaxTopWAllTempEdit.Text);

         ImproveForm.ImproveMemo.Lines.Add('要求热风温度:'+FloatToStr(OperationImproveElement.Condition_OperationImprove[1])+','+
                                           '排烟上限温度:'+FloatToStr(OperationImproveElement.Condition_OperationImprove[2])+','+
                                           '炉顶最高温度:'+FloatToStr(OperationImproveElement.Condition_OperationImprove[3]));

         SESystemElement.q1_inheat[1]:=StrToFloat(CoalQEdit.Text);
         SESystemElement.q1_inheat[2]:=StrToFloat(HotAirQEdit.Text);

         ImproveForm.ImproveMemo.Lines.Add('煤气流量:'+FloatToStr(SESystemElement.q1_inheat[1])+','+
                                           '热风流量:'+FloatToStr(SESystemElement.q1_inheat[2]));

         SESystemElement.process_heatcompute[2]:= StrToFloat(ExpendCoeffEdit.Text);
         SESystemElement.tm_coal:= StrToFloat(CoalTempEdit.Text);

         ImproveForm.ImproveMemo.Lines.Add('空气消耗系数:'+FloatToStr(SESystemElement.process_heatcompute[2])+','+
                                           '煤气温度:'+FloatToStr(SESystemElement.tm_coal));

         

end;

end.