Delphi读取ini，通用

### 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文件中的数据可以通过以下方法完成： 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; 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文件的详细过程。通过这些方法，你可以轻松地管理应用程序的各种配置信息。