用到的单元IniFiles;
function ReadIni(filename, Section, ident, sdefault: string): string;
vartmpIni: 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;