在 Delphi 中编辑 .ini 文件以更改完整路径

Question

大家好，我是新手，在 Delphi 中需要一些帮助

我需要帮助 delphi 读取 example.ini 文件并将 path= 更改为当前路径 和 savepath= 到 currentpath\saves

谢谢

Answer 1

这样的事情应该可以满足您的要求（在 Delphi 10.3 CE 中编码）：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.IniFiles;

type
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  path: string;
  savepath: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  // Extract current directory
  path := ExtractFilePath(ParamStr(0));

  Ini := TIniFile.Create(path + 'example.ini');
  try
    path:= Ini.ReadString('General', 'OpenPath', path);
    savepath:= Ini.ReadString('General', 'SavePath', path + 'saves/');
  finally
    Ini.Free;
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var Ini: TIniFile;
begin
  Ini := TIniFile.Create(path + 'example.ini');
  try
    Ini.WriteString('General', 'OpenPath', path);
    Ini.WriteString('General', 'SavePath', savepath);
  finally
    Ini.Free;
  end;
  CanClose:= true;
end;

end.