INI文件的读写

function readInifile(fileName,section,Ident:string):string;? //读取配置文件

var

? ini:tinifile;

begin

? ini:=tinifile.Create(fileName);

? result:=ini.ReadString(section,ident,'');

? ini.Free;

end;

procedure writeInifile(const fileName,Section, Ident, Value: string); //写inifile

var

? ini:tinifile; aPathName:string;

begin

? try

??? aPathName:= ExtractFileDir(fileName);

??? if not DirectoryExists(aPathName) then

????? ForceDirectories(aPathName);

??? ini:=tinifile.Create(fileName);

??? ini.WriteString(Section, Ident, Value);

??? ini.Free;

? except

? end;

end;