### Delphi 读取 Ini 文件详解
#### 一、INI 文件概述
INI 文件是一种常见的文本配置文件格式，常用于存储程序设置和配置信息。它的基本结构由一系列的节（Section）、键（Key）和值（Value）组成。例如：
```
[Section1]
Key1=Value1
Key2=Value2
[Section2]
KeyA=ValueA
KeyB=ValueB
```
每个节都以方括号包围的节名开始，随后是一系列键值对。键值对通常由等号分隔。
#### 二、Delphi 中处理 INI 文件
Delphi 提供了一个非常方便的类 `TIniFile` 来读写 INI 文件。下面详细介绍如何在 Delphi 中使用这个类。
#### 三、定义 TIniFile 实例
为了使用 `TIniFile` 类，首先需要在程序中定义一个 `TIniFile` 的实例。这可以通过以下步骤完成：
1. **添加 Uses 子句**：在单元文件的 `Uses` 部分加入 `IniFiles` 单元。
```pascal
uses
IniFiles;
```
2. **定义实例**：在 `Var` 声明部分定义一个 `TIniFile` 的实例。
```pascal
var
MyIniFile: TIniFile;
```
#### 四、打开 INI 文件
创建一个 `TIniFile` 对象实例后，可以使用 `Create` 方法打开或创建一个 INI 文件。
```pascal
MyIniFile := TIniFile.Create('path/to/your/file.ini');
```
如果只提供文件名而没有完整路径，Delphi 会在 Windows 目录下查找或创建这个文件。若希望将文件放在应用程序所在目录下，可以通过以下方式指定路径：
```pascal
var
FileName: string;
begin
FileName := ExtractFilePath(ParamStr(0)) + 'yourfile.ini';
MyIniFile := TIniFile.Create(FileName);
end;
```
#### 五、写入 INI 文件
使用 `TIniFile` 类提供的方法可以向 INI 文件中写入数据：
1. **写入字符串**：`WriteString` 方法用于写入字符串类型的值。
```pascal
MyIniFile.WriteString('SectionName', 'KeyName', 'Value');
```
2. **写入整型数**：`WriteInteger` 方法用于写入整型数值。
```pascal
MyIniFile.WriteInteger('SectionName', 'KeyName', Value);
```
3. **写入布尔值**：`WriteBool` 方法用于写入布尔类型的值。
```pascal
MyIniFile.WriteBool('SectionName', 'KeyName', Value);
```
如果对应的节或键不存在，这些方法会自动创建它们。如果键已存在，则覆盖原来的值。
#### 六、读取 INI 文件
读取 INI 文件中的数据可以通过以下方法完成：
1. **读取字符串**：`ReadString` 方法用于读取字符串类型的值。
```pascal
Value := MyIniFile.ReadString('SectionName', 'KeyName', Default);
```
2. **读取整型数**：`ReadInteger` 方法用于读取整型数值。
```pascal
Value := MyIniFile.ReadInteger('SectionName', 'KeyName', Default);
```
3. **读取布尔值**：`ReadBool` 方法用于读取布尔类型的值。
```pascal
Value := MyIniFile.ReadBool('SectionName', 'KeyName', Default);
```
这里的 `Default` 参数是当键不存在时返回的默认值。
#### 七、删除关键字和节
`TIniFile` 类提供了删除关键字和整个节的方法：
1. **删除关键字**：`DeleteKey` 方法用于删除特定节下的某个关键字。
```pascal
MyIniFile.DeleteKey('SectionName', 'KeyName');
```
2. **删除整个节**：`EraseSection` 方法用于删除整个节。
```pascal
MyIniFile.EraseSection('SectionName');
```
#### 八、其他常用操作
除了基本的读写操作外，`TIniFile` 还提供了一些其他有用的方法：
1. **读取节中的所有关键字**：`ReadSection` 方法可以将指定节中的所有关键字读取到一个 `TStrings` 变量中。
```pascal
MyIniFile.ReadSection('SectionName', KeyNames);
```
2. **读取所有节名**：`ReadSections` 方法可以读取 INI 文件中所有节名，并存储在一个 `TStrings` 变量中。
```pascal
MyIniFile.ReadSections(AllSectionNames);
```
3. **读取指定节的所有行**：`ReadSectionValues` 方法可以读取指定节的所有行（包括关键字、等号、值），并存储在一个 `TStrings` 变量中。
```pascal
MyIniFile.ReadSectionValues('SectionName', SectionValues);
```
#### 九、释放资源
使用完 `TIniFile` 实例后，记得释放其占用的资源：
```pascal
MyIniFile.Destroy;
```
#### 十、示例代码
下面是一个简单的示例代码，演示了如何使用 `TIniFile` 类来读写 INI 文件：
```pascal
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IniFiles, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Timer1: TTimer;
CheckBox1: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure CheckBox1Change(Sender: TObject);
private
MyIniFile: TIniFile;
end;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'myini.ini');
if CheckBox1.Checked then begin
Edit1.Text := MyIniFile.ReadString('newini', '用户名称', '');
Edit2.Text := IntToStr(MyIniFile.ReadInteger('newini', '已运行时间', 0));
CheckBox1.Checked := MyIniFile.ReadBool('newini', '是否正式用户', False);
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if CheckBox1.Checked then begin
MyIniFile.WriteString('newini', '用户名称', Edit1.Text);
MyIniFile.WriteInteger('newini', '已运行时间', StrToInt(Edit2.Text));
MyIniFile.WriteBool('newini', '是否正式用户', CheckBox1.Checked);
end;
MyIniFile.Destroy;
end;
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
// 可以在此添加额外的逻辑
end;
end.
```
这段代码展示了一个简单的界面，其中包含了三个控件：一个编辑框（用于输入用户名）、一个编辑框（用于显示运行时间）和一个复选框（用于标记是否为正式用户）。程序启动时会从 INI 文件读取这些信息，关闭时则将这些信息写回 INI 文件。
以上就是在 Delphi 中使用 `TIniFile` 类来处理 INI 文件的详细过程。通过这些方法，你可以轻松地管理应用程序的各种配置信息。
