zoukankan      html  css  js  c++  java
  • tmeminifile and tinifile

    在iniFiles单元中,有三个读取ini文件的三个主要操作类TCustomIniFile、TmemIniFile和TiniFile,其中在windows系统编译下,TcustomIniFile分别为TmemIniFile和TiniFile下的基类,其中在windows系统中TmemIniFile和TIniFile这两个操作类的唯一区别在于TmenIniFile花销的存储要比TiniFile要大一些。其中TcustomIniFile有几个重要的方法

      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.
  • 相关阅读:
    【源码学习之spark core 1.6.1 standalone模式下的作业提交】
    【源码学习之spark streaming 1.6.1 】
    spark udf 初识初用
    spark 累加历史 + 统计全部 + 行转列
    spark 都用了哪些开源东东
    kafka 官方示例代码--消费者
    104. 二叉树的最大深度
    237. 删除链表中的节点
    Leetcode-167. Two Sum II
    Leetcode-215. Kth Largest Element in an Array
  • 原文地址:https://www.cnblogs.com/moonwind/p/4486984.html
Copyright © 2011-2022 走看看