Function ReadiniFile (filename, section, ident: string): string;? // Read configuration file var? INI: tinifile; begin? ini: = tinifile.create (filename) ;? Result: = ini.readstring (section, Ident) , ''); inc.free; end; procedure write, Ident, Value: string; // Write INIFILEVAR? INI: tinifile; apathname: string; begin? try ??? apathname: = extractfiledir (filename); ??? IF not Directoryexists (apathname) THEN ????? forcedirector (apathname); ??? ini: = tinifile.create (filename); ??? ini.writestring (section, ide, value) ; ??? INI.FREE;? EXCEPT? END; END;
