Delphi 7 - 保存到特定的 .INI 文件名

Question

我修改了MasterMan82's TIniFile code 以从 & 到 TEdit/TComboBox 和 TMemo 读取和写入多个值。

请原谅我的模糊问题，我的英语不好。

所以，我的意思是：

我有几个 .INI 文件，A.ini、B.ini、C.ini ....等等。我只是将 A.ini 作为变量存储在代码中。无法将所有文件名都放在代码中。

当我打开 A.ini 时，进行一些更改，单击 SAVE 保存所做的任何更改，并且成功！。当然，因为代码中已经定义了A.ini。

但是，当我打开文件 B.ini 或 C.ini 或 D.ini...进行更改并保存时，重新打开文件，但文件中的所有更改都消失或未保存，当然，因为代码中只定义了 A.ini。

那么，我的目标是如何保存或记录所有文件修订？

下面是代码。

......

uses
  Windows, Messages, SysUtils, Variants, Classes, 
  Graphics, Controls, Forms, IniFiles, Dialogs;

......

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
   I, LinesCount: Integer;
   Read         : TIniFile;
begin
   Read  := TINIFile.Create(ExtractFilePath(Application.EXEName)+ 'A.ini');
// Read  := TIniFile.Create(ChangeFileExt(Application.Exename,'A.ini'));
  Try
   Proxy.Text   := Read.ReadString('SETTING','Proxy','');
   Port.Text    := Read.ReadString('SETTING','Port','');
   Route.Checked:= Read.ReadBool('SETTING','Route',False);
   // TO READ MEMO LINES
   LinesCount := Read.ReadInteger('MEMO', 'Lines Count', 0);
   for I := 0 to LinesCount-1 do
   Memo1.Lines.Insert(I, Read.ReadString('MEMO', 'Item'+IntToStr(I), ''));
  Finally
   Read.Free;
  end;
end;

procedure TForm1.SaveClick(Sender: TObject);
var
   I, LinesCount: Integer;
   ToSave       : TIniFile;
begin
  ToSave := TINIFile.Create(ExtractFilePath(Application.EXEName)+ 'A.ini');
  Try
   ToSave.WriteString('SETTING','Proxy',Proxy.Text);
   ToSave.WriteString('SETTING','Port',Port.Text);
   ToSave.WriteBool('SETTING','Route',Route.Checked);
   // TO SAVE MEMO LINES
   LinesCount := Memo1.Lines.Count;
   ToSave.WriteInteger('MEMO', 'Lines Count', LinesCount);
   for I := 0 to LinesCount-1 do
   ToSave.WriteString('MEMO', 'Item'+IntToStr(I), Memo1.Lines[I]);
  Finally
   ToSave.Free;
 end;
end;

procedure TForm1.OpenClick(Sender: TObject);
var
   I, LinesCount: Integer;
   OpenFile     : TIniFile;
begin    
   OpenDialog.Filter:='Ini File (.ini)|*.ini';
  if OpenDialog.Execute then begin
   Memo1.Clear;
   OpenFile := TINIFile.Create(OpenDialog.FileName);
  Try
   Proxy.Text   := OpenFile.ReadString('SETTING','Proxy','');
   Port.Text    := OpenFile.ReadString('SETTING','Port','');
   Route.Checked:= OpenFile.ReadBool('SETTING','Route',False);
   // TO READ MEMO LINES
   LinesCount   := OpenFile.ReadInteger('MEMO', 'Lines Count', 0);
   for I := 0 to LinesCount-1 do
   Memo1.Lines.Insert(I, OpenFile.ReadString('MEMO', 'Item'+IntToStr(I), ''));
  Finally
   OpenFile.Free;
  end;
 end;
end;

Answer 1

你期望在不存在的地方有魔法。如果您想保存到您打开的同一个文件，则在打开时将所选名称存储在一个变量中，然后在保存时也使用该变量。

同样，如果您想记住从一次运行到下一次运行的名称，那么您需要将名称存储在持久存储中（如注册表或 INI 文件），然后在下次程序启动时读取该名称.

得到你所要求的并不难，但你必须为它编写一些代码。

Answer 2

当您打开一个 ini 文件时，将文件名存储在一个变量中，如许多 cmets 中所述。

例如，（FCurrentIniFilename: String; 是 TForm1 中的私有变量）：

在FormCreate 事件中：

FCurrentIniFilename := ExtractFilePath(Application.EXEName)+ 'A.ini';
Read  := TINIFile.Create(FCurrentIniFilename);
...

在 OpenFile 事件中：

if OpenDialog.Execute then begin
  FCurrentIniFilename := OpenDialog.Filename;
  Open := TINIFile.Create(FCurrentIniFileName);
  try
    ...
  finally
    Open.Free;
  end;
end;

当您保存信息时：

ToSave := TINIFile.Create(FCurrentIniFilename);