cssz.pas

来自「完成虚拟的多功能电能表」· PAS 代码 · 共 72 行

unit cssz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DataGrid,inifiles;

type
  TcsszForm = class(TForm)
    GroupBox1: TGroupBox;
    Grid1: TDataGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  csszForm: TcsszForm;

implementation

{$R *.DFM}

procedure TcsszForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TcsszForm.FormCreate(Sender: TObject);
var
  tmpini:Tinifile;
begin
  tmpini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'dgntest.ini');
  Grid1.cells[0,1]:=tmpini.ReadString('参数设置','GBS','1');
  Grid1.cells[1,1]:=tmpini.ReadString('参数设置','XX','三相四线');
  Grid1.cells[2,1]:=tmpini.ReadString('参数设置','DY','220V');
  Grid1.cells[3,1]:=tmpini.ReadString('参数设置','DL','1.5A');
  Grid1.cells[4,1]:=tmpini.ReadString('参数设置','DJ','0.5');
  Grid1.cells[5,1]:=tmpini.ReadString('参数设置','WDJ','2.0');
  Grid1.cells[6,1]:=tmpini.ReadString('参数设置','TXFS','485');
  Grid1.cells[7,1]:=tmpini.ReadString('参数设置','TXDK','COM1');
  Grid1.cells[8,1]:=tmpini.ReadString('参数设置','SFBL','1');
  tmpini.free;
end;

procedure TcsszForm.BitBtn1Click(Sender: TObject);
var
  tmpini:Tinifile;
begin
  tmpini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'dgntest.ini');
  tmpini.WriteString('参数设置','GBS',Grid1.cells[0,1]);
  tmpini.WriteString('参数设置','XX',Grid1.cells[1,1]);
  tmpini.WriteString('参数设置','DY',Grid1.cells[2,1]);
  tmpini.WriteString('参数设置','DL',Grid1.cells[3,1]);
  tmpini.WriteString('参数设置','DJ',Grid1.cells[4,1]);
  tmpini.WriteString('参数设置','WDJ',Grid1.cells[5,1]);
  tmpini.WriteString('参数设置','TXFS',Grid1.cells[6,1]);
  tmpini.WriteString('参数设置','TXDK',Grid1.cells[7,1]);
  tmpini.WriteString('参数设置','SFBL',Grid1.cells[8,1]);
  tmpini.free;
  close;
end;

end.