analogset.pas

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

unit AnalogSet;

interface

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

type
  TAnalogSetForm = class(TForm)
    PrecisionLabel: TLabel;
    IterativeNumberLabel: TLabel;
    PrecisionEdit: TEdit;
    IterativeNumberEdit: TEdit;
    BOKButton: TBitBtn;
    BCancelButton: TBitBtn;
    procedure BOKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AnalogSetForm: TAnalogSetForm;

implementation

{$R *.dfm}

uses Analog;

procedure TAnalogSetForm.BOKButtonClick(Sender: TObject);
var IniFile:TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.exename)+'/SESystem.ini');

  Inifile.WriteFloat('Analog Parameter', 'PrecisionValue', strtoFloat(Precisionedit.Text) );
  Inifile.WriteInteger('Analog Parameter', 'IterativeNumber', StrToInt64(IterativeNumberedit.Text));
  IniFile.Free;
  
  AnalogForm.AnalogMemo.Lines.Add('模拟参数设置');
  AnalogForm.AnalogMemo.Lines.Add('精度:'+Precisionedit.Text+','+
                                  '迭代次数:'+IterativeNumberedit.Text);
  Close;
end;



end.