Question

我修改了MasterMan82's TIniFile code来读取和写入来自＆amp;的多个值。到TEdit / TComboBox和TMemo。

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

所以，我的意思是：

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

当我打开A.ini时，进行一些更改，点击“保存”以保存所做的任何更改，并获得成功！当然，因为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文件时，请将文件名存储在变量中，如许多注释中所述。

示例，（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);

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

2 个答案: