Delphi中Ini读写函数

用到的单元IniFiles；

function ReadIni(filename, Section, ident, sdefault: string): string;

var
  tmpIni: TIniFile;
begin
  try
    tmpIni := TIniFile.Create(filename);
    Result := tmpIni.ReadString(Section, ident, sdefault);
  finally
    FreeAndNil(tmpIni);
  end;
end;


procedure WriteIni(filename, Section, ident, svalue: string);
var
  tmpIni: TIniFile;
begin
  try
    tmpIni := TIniFile.Create(filename);
    tmpIni.WriteString(Section, ident, svalue);
  finally
    FreeAndNil(tmpIni);
  end;
end;