zoukankan      html  css  js  c++  java
  • ini 文件操作记要(2): 使用 TMemIniFile

    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: emp est.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.
  • 相关阅读:
    APUE.3源码编译(Ubuntu16.04)
    《UNIX环境高级编程》(第三版)阅读笔记---2018-5-9
    css回归之用户界面
    css回归之文本
    js回归之字符串
    js回归之BOM
    js回归之事件
    百度前端面试总结
    书单
    剑指offer做题收获之一:补码
  • 原文地址:https://www.cnblogs.com/shijiaoyun/p/3844526.html
Copyright © 2011-2022 走看看