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.
    
  • 相关阅读:
    01.mp4v2应用—mp4转h264
    00.mp4v2工具的用法
    交叉编译x264和ffmpeg
    pcm2aac
    保存一下东西
    05.移植内核3.4.2
    04.移植u-boot
    03.应用程序调试
    关于 jxl 下载 excel (java)
    JXL 对excle 操作(单元格合并,列宽,格式等)
  • 原文地址:https://www.cnblogs.com/del/p/1004101.html
Copyright © 2011-2022 走看看