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:\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.
    
  • 相关阅读:
    Android Design Support Library(三)用CoordinatorLayout实现Toolbar隐藏和折叠
    Android Design Support Library(二)用NavigationView实现抽屉菜单界面
    Android Design Support Library(一)用TabLayout实现类似网易选项卡动态滑动效果
    Android5.x Notification应用解析
    了解ViewFlipper工作机制
    OkHttp自定义重试次数
    OkHttp实现全局过期token自动刷新
    Android5.0新控件
    Android4.0新控件
    用typedef给结构体一个别名
  • 原文地址:https://www.cnblogs.com/del/p/1004101.html
Copyright © 2011-2022 走看看