delphi – 加载/保存.ini文件

发布时间：2020-12-15 09:11:23 所属栏目：大数据来源：网络整理

导读：我编写了一个代码,让我将变量保存到带有自定义文件名的.ini文件中.文件名取决于EditBox1中的文本.没问题.我的问题是如何通过从加载文件窗口( Windows资源管理器)中选择文件来从该自定义文件名加载这些变量. DataIni:=TIniFile.Create(getcurrentdir+'save f

我编写了一个代码,让我将变量保存到带有自定义文件名的.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',EditFirstName.Text);
EditMiddleName.Text := DataIni.ReadString('INFO',EditMiddleName.Text);
EditFamilyName.Text := DataIni.ReadString('INFO',EditFamilyName.Text);

因此,例如EditBox1.Text =’MyFile1′,如何通过从其他文件列表中选择MyFile1.ini来加载MyFile1.ini中保存的变量？

解决方法

您可以使用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','');
    EditMiddleName.Text := DataIni.ReadString('INFO','');
    EditFamilyName.Text := DataIni.ReadString('INFO','');
  finally
    FreeAndNil(DataIni);
  end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!