pafIni.pas

unit pafIni; //òóò ïðîèçâîäèòñÿ ðàáîòà ñ ini ôàéëàìè

interface
uses
inifiles,  //ïîäêë÷àåì ìîäóëü äàáû ðàáîòàòü ñ ini ôàéëàìè
SysUtils;



function Write_ini_str(perUnit,perKey,perValue,perPathIni:string):boolean;
function Read_ini_str(perUnit,perKey,perPathIni:string):string;
function Read_ini_bool(perUnit,perKey,perPathIni:string):Boolean;  //ñåêöèÿ , êëþ÷, íà âûõîäå ïîëó÷èì ïàðàìåòð
function Write_ini_bool(perUnit,perKey,perPathIni:string;perValue:Boolean):boolean;  // ñåêöèÿ, êëþ÷, ïàðàìåòð
function Write_ini_int(perUnit,perKey,perPathIni:string; perValue:Integer):boolean;  // ñåêöèÿ, êëþ÷, ïàðàìåòð
function Read_ini_int(perUnit,perKey,perPathIni:string):Integer;  //ñåêöèÿ , êëþ÷, íà âûõîäå ïîëó÷èì ïàðàìåòð

implementation


//ôóíêöèÿ äëÿ âûòàñêèâàíèÿ ïàðàìåòðîâ èç ini ôàéëà
function Read_ini_str(perUnit,perKey,perPathIni:string):string;  //ñåêöèÿ , êëþ÷, íà âûõîäå ïîëó÷èì ïàðàìåòð
var
 config_ini:TIniFile;
begin
  config_ini:=TIniFile.Create(perPathIni); //óêàçûâàåì ïóòü äî ôàéëà ini åñëè åãî íåòó , òî îí ñîçäàòüñÿ ñàì
  Result:=config_ini.ReadString(perUnit,perKey,''); //ñåêöèÿ, êëþ÷, ïî äåôîëòó
  config_ini.Free;
end;


//ôóíêöèÿ äëÿ âûòàñêèâàíèÿ ïàðàìåòðîâ èç ini ôàéëà
function Read_ini_int(perUnit,perKey,perPathIni:string):Integer;  //ñåêöèÿ , êëþ÷, íà âûõîäå ïîëó÷èì ïàðàìåòð
var
 config_ini:TIniFile;
begin
  config_ini:=TIniFile.Create(perPathIni); //óêàçûâàåì ïóòü äî ôàéëà ini åñëè åãî íåòó , òî îí ñîçäàòüñÿ ñàì
  Result:=config_ini.ReadInteger(perUnit,perKey,-1); //ñåêöèÿ, êëþ÷, ïî äåôîëòó
  config_ini.Free;
end;

//ôóíêöèÿ äëÿ âãîíÿíèÿ ïàðàìåòðîâ â ini ôàéë ñòðîêîâûõ ïàðàìåòðîâ
function Write_ini_str(perUnit,perKey,perValue,perPathIni:string):boolean;  // ñåêöèÿ, êëþ÷, ïàðàìåòð
var
 config_ini:TIniFile;
begin
  config_ini:=TIniFile.Create(perPathIni); //óêàçûâàåì ïóòü äî ôàéëà ini åñëè åãî íåòó , òî îí ñîçäàòüñÿ ñàì
  config_ini.WriteString(perUnit,perKey,perValue);
  config_ini.Free;
end;


//ôóíêöèÿ äëÿ âãîíÿíèÿ ïàðàìåòðîâ â ini ôàéë ÷èñëîâ ïàðàìåòðîâ
function Write_ini_int(perUnit,perKey,perPathIni:string; perValue:Integer):boolean;  // ñåêöèÿ, êëþ÷, ïàðàìåòð
var
 config_ini:TIniFile;
begin
  config_ini:=TIniFile.Create(perPathIni); //óêàçûâàåì ïóòü äî ôàéëà ini åñëè åãî íåòó , òî îí ñîçäàòüñÿ ñàì
  config_ini.WriteInteger(perUnit,perKey,perValue);
  config_ini.Free;
end;

function Read_ini_bool(perUnit,perKey,perPathIni:string):Boolean;  //ñåêöèÿ , êëþ÷, íà âûõîäå ïîëó÷èì ïàðàìåòð
var
 config_ini:TIniFile;
begin
  config_ini:=TIniFile.Create(perPathIni); //óêàçûâàåì ïóòü äî ôàéëà ini åñëè åãî íåòó , òî îí ñîçäàòüñÿ ñàì
  Result:=config_ini.ReadBool(perUnit,perKey,false); //ñåêöèÿ, êëþ÷, ïî äåôîëòó
  config_ini.Free;
end;


//ôóíêöèÿ äëÿ âãîíÿíèÿ ïàðàìåòðîâ â ini ôàéë áóëåâûõ ïàðàìåòðîâ
function Write_ini_bool(perUnit,perKey,perPathIni:string;perValue:Boolean):boolean;  // ñåêöèÿ, êëþ÷, ïàðàìåòð
var
 config_ini:TIniFile;
begin
  config_ini:=TIniFile.Create(perPathIni); //óêàçûâàåì ïóòü äî ôàéëà ini åñëè åãî íåòó , òî îí ñîçäàòüñÿ ñàì
  config_ini.WriteBool(perUnit,perKey,perValue);
  config_ini.Free;
end;
end.