怎样读取.INI文件

Question

最好能写成函数

Answer 1

__UserName := ReadIniString(__Path, 'DataDB', 'UserName', '');
  __Password := ReadIniString(__Path, 'DataDB', 'Password', '');function ReadIniString(sIniFile, sSection, sIdent: string;
  sDefault: string): string;
//读取IN文件中的字符数据
var
  iniConfig: TIniFile;
  lsResult: string;
begin
  iniConfig := TIniFile.Create(sIniFile);
  try
    lsResult := iniConfig.ReadString(sSection, sIdent, sDefault);
  except
    lsResult := sDefault;
  end;
  iniConfig.free;
  Result := lsResult;
end;