delphi - 获取ini文件值失败

Question

我尝试从 ini 文件中获取值。ini 文件为：

[Database]
User=root
Pssword=lalalala
Server=localhost
Name=Prueba

我要阅读的代码过程是：

procedure testManejoIniFile();
var
  iniFile: TIniFile;
  user: String;
begin
  {Abro el archivo ini}
  iniFile := TIniFile.Create('config.ini');
  user := iniFile.ReadString('Database','User','Algo anda mal...');
  iniFile.Free;
  WriteLn(user);
end;

调用该过程的 cli 程序是：

WriteLn('El usuario para la base de datos es:');
testManejoIniFile();
ReadLn;

cli 总是返回：

El usuario para la base de datos es:
Algo anda mal...

有任何想法吗 ？。

Answer 1

您没有具体说明TIniFile.Create应该在哪里查找config.ini文件，因此默认情况下它在 Windows 目录中查找但未找到它，并返回您说它应该返回的默认值。

您需要指定config.ini文件的位置。如果它与您的应用程序在同一个文件夹中，您可以从中获取路径ParamStr(0)或Application.ExeName使用ExtractFilePath这样的路径（我添加了 atry..finally以防止异常，并移动了WriteLn它以便仅在ReadString成功时调用它）：

procedure testManejoIniFile();
var
  iniFile: TIniFile;
  user: String;
  Path: string;
begin
  {Abro el archivo ini}
  Path := ExtractFilePath(ParamStr(0)); // Or Application.ExeName
  iniFile := TIniFile.Create(Path + 'config.ini');
  try
    user := iniFile.ReadString('Database','User','Algo anda mal...');
    WriteLn(user);
  finally
    iniFile.Free;
  end;
end;