Delphi ini 文件操作记要: 使用 TMemIniFile

2022-11-30 14:33:49 作者:admin

本文整理自网络,侵删。

 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.
来源:https://www.cnblogs.com/del/archive/2007/12/18/1004101.html

相关阅读 >>

Delphi idhttp最简洁的修改和取得cookie例子

pascal 语言中的关键字及保留字

Delphi 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err

Delphi图片上写水印文字函数

Delphi formatdatetime 显示日期时间

Delphi webbrowser1去边框

Delphi使用idhttp 获取 httpsurl内容

Delphi 以系统权限运行程序的代码

Delphi 查询某个字符在字符串出现的位置,支持查找次数

Delphi api 函数中使用 pchar 参数的几种方法

更多相关阅读请进入《Delphi》频道 >>



在线咨询 拨打电话