ini 文件操作记要(2): 使用 TMemIniFile
ini 文件操作记要(2): 使用 TMemIniFile
涂孟超 发表于3年前
ini 文件操作记要(2): 使用 TMemIniFile
  • 发表于 3年前
  • 阅读 4
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 新注册用户 域名抢购1元起>>>   

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  IniFiles;
var
  ini: TMemIniFile;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ini := TMemIniFile.Create('c:\temp\test.ini');
end;

//写入
procedure TForm1.Button1Click(Sender: TObject);
begin
  ini.WriteString('AAA','A1','AAA-String');

//其他也都和 IniFile 一样使用
//  ini.WriteInteger();
//  ini.WriteBool();
//  ini.WriteDate();
//  ini.WriteTime();
//  ini.WriteDateTime();
//  ini.WriteFloat();
//  ini.WriteBinaryStream();

  //ini.UpdateFile;  //因为 TMemIniFile 是内存操作, 这样才能保存到文件
end;

//读出及其他
procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
begin
  s := ini.ReadString('AAA','A1','默认值');
  ShowMessage(s);  //AAA-String

//其他读入命令也都和 IniFile 一样使用
//  ini.ReadInteger();
//  ini.ReadBool();
//  ini.ReadDate();
//  ini.ReadTime();
//  ini.ReadDateTime();
//  ini.ReadFloat();
//  ini.ReadBinaryStream();

//还有四个常用方法也是和 IniFile 一样的
//ini.DeleteKey();
//ini.EraseSection();
//ini.ReadSection();
//ini.ReadSections();

//另外有三个 IniFile 中没有的方法也容易使用
//ini.GetStrings(List: TStrings);
//ini.SetStrings(List: TStrings);
//ini.Rename(const FileName: string; Reload: Boolean);
//其中 Rename 中的第二个 Boolean 参数如果为 True 将会刷新读入
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ini.Free;
end;

end.
共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: