无法获取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这样的路径获取路径(我添加了一个try..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;