delphi - 加载/保存 .ini 文件

Question

我编写了一段代码，让我可以将变量保存到具有自定义文件名的 .ini 文件中。文件名取决于 EditBox1 中的文本。那里没问题。我的问题是如何通过从加载文件窗口(Windows 资源管理器)中选择文件来从该自定义文件名加载这些变量。

DataIni:=TIniFile.Create(getcurrentdir+'\save folder\' + EditBox1.Text +'.ini');

保存变量示例

DataIni.WriteString('INFO','FirstName',EditFirstName.Text);
DataIni.WriteString('INFO','MiddleName',EditMiddleName.Text);
DataIni.WriteString('INFO','FamilyName',EditFamilyName.Text);

负载变量示例

EditFirstName.Text := DataIni.ReadString('INFO','FirstName',EditFirstName.Text);
EditMiddleName.Text := DataIni.ReadString('INFO','MiddleName',EditMiddleName.Text);
EditFamilyName.Text := DataIni.ReadString('INFO','FamilyName',EditFamilyName.Text);

例如，EditBox1.Text = 'MyFile1'，如何通过从其他文件列表中选择 MyFile1.ini 来加载保存在 MyFile1.ini 中的变量？

Answer 1

您可以使用TOpenDialog来获取所需文件的名称，以便调用函数来加载您的值。

uses IniFiles;
...

单击按钮时，调用 OpenDialog.Execute 以允许选择文件名。

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TOpenDialog.Create(Self) do
  try
    Filter := 'Ini Files (*.ini)|*.ini';
    if Execute then
      LoadMyVars(FileName);
  finally
    Free;
  end;
end;

此函数将 ini 文件的值加载到控件中。

procedure TForm1.LoadMyVars(const AFileName: string);
var
  DataIni : TIniFile;
begin
  DataIni := TIniFile.Create(AFileName);
  try
    EditFirstName.Text := DataIni.ReadString('INFO','FirstName', '');
    EditMiddleName.Text := DataIni.ReadString('INFO','MiddleName', '');
    EditFamilyName.Text := DataIni.ReadString('INFO','FamilyName', '');
  finally
    FreeAndNil(DataIni);
  end;
end;