CodeTyphon 上位机开发入门系列-2.读写ini、json、xml文件

开发上位机经常会遇到要保存一些参数和数据到文件，其中ini、json、xml是最常用的格式。codetyphon有现成的控件可以，他们是IniPropStorage、JSONPropStorage、XMLPropStorage。通过简单的设置就可以实现配置文件的存储。

IniPropStorage主要属性：

1.property StoredValues: TStoredValues;
存储的参数名和键值都在这里添加设置。
2.property IniFileName: string; Name of the file where the property data is saved in INI format.
要读取或存储的ini文件名称，支持相对路径。
3.property IniSection: string; The section on the INI file where values are to be kept.
设置设定参数所在的区域，理解就是参数的父节点名。
4.property Active: Boolean;This determines if the object is active or not.
这个建议设置成false，true运行发现有一些问题，原因不清楚。

image.png

程序设计

1.新建application项目，拖拽控件，使界面如下：

image.png

2.设置主要属性：
Active=false；
IniFileName=config.ini;可以自己手动创建该文件，也可以让程序运行时自动创建；
IniSection=Setup；
StoredValues设置如下图：

image.png

程序代码

unit main;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  IniPropStorage, ExtCtrls, Buttons, kedits;

type

  { TForm1 }

  TForm1 = class(TForm)
    btnWriteINIFile: TBitBtn;
    btnExit: TButton;
    btnReadINIFile: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Edit2: TKNumberEdit;
    Edit3: TKNumberEdit;
    Edit4: TKNumberEdit;
    Edit6: TLabeledEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    IniStorage1: TIniPropStorage;
    Edit1: TKNumberEdit;
    Edit5: TLabeledEdit;
    procedure btnExitClick(Sender: TObject);
    procedure btnReadINIFileClick(Sender: TObject);
    procedure btnWriteINIFileClick(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.frm}

{ TForm1 }

procedure TForm1.btnExitClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.btnReadINIFileClick(Sender: TObject);
var
  h:String;
begin
  h:='';
  CheckBox2.Checked:=IniStorage1.ReadBoolean('AutoStart',False);
  Edit2.ValueAsInt:=IniStorage1.ReadInteger('Left',0);
  Edit4.Value:=IniStorage1.ReadString('Height','0.0').ToDouble;
  Edit6.Text:= IniStorage1.ReadString('Name','');
end;

procedure TForm1.btnWriteINIFileClick(Sender: TObject);
begin
  IniStorage1.WriteBoolean('AutoStart',CheckBox1.Checked);
  IniStorage1.WriteInteger('Left',Edit1.ValueAsInt);
  IniStorage1.WriteString('Height',Edit3.ValueAsText);
  IniStorage1.WriteString('Name',Edit5.Text);
  //IniStorage1.Save;
end;

end.

运行效果

image.png

JSON和XML文件操作与上面基本一样，不在细述。

···