dataset.pas

《管状换热器计算机辅助设计系统ExhCAD绘图系统(版本:1.01a Final)》为自由软件

unit DataSet;

interface

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

type
  TDataSetForm = class(TForm)
    AirphyLabel: TLabel;
    FumePhyLabel: TLabel;
    PipLenLabel: TLabel;
    PipRowLabel: TLabel;
    AirPhyEdit: TEdit;
    FumePhyEdit: TEdit;
    PipLenEdit: TEdit;
    PipRowEdit: TEdit;
    OkButton: TButton;
    procedure OkButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataSetForm: TDataSetForm;

implementation

{$R *.dfm}

procedure TDataSetForm.OkButtonClick(Sender: TObject);
var IniFile:TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.exename)+'/datamanager.ini');

  Inifile.WriteInteger('Data Manager', 'AirPhy', strtoint(AirPhyedit.Text) );
  Inifile.WriteInteger('Data Manager', 'FumePhy', strtoint(fumePhyedit.Text));
  Inifile.WriteInteger('Data Manager', 'PipLen',strtoint(PipLenedit.Text));
  Inifile.WriteInteger('Data Manager', 'PipRow',strtoint(PipRowedit.Text));
  IniFile.Free;
  Close;
end;

end.