INI-файлы (чтение/запись)

Previous  Top  Next

    
 

 

 

Code:

function ReadIni(ASection, AString: string): string;

var

sIniFile: TIniFile;

sPath: string[60];

const

S = 'xyz'; { стандартная строка для выдачи ошибок чтения }

begin

GetDir(0, sPath); { текущий каталог }

sIniFile := TIniFile.Create(sPath + '\Name.INI');

Result := sIniFile.ReadString(ASection, AString, S); { [Section] String=Value}

sIniFile.Free;

end;

 

procedure WriteIni(ASection, AString, AValue: string);

var

sIniFile: TIniFile;

sPath: string[60];

begin

GetDir(0, sPath); { текущий каталог }

sIniFile := TIniFile.Create(sPath + '\Name.INI');

sIniFile.WriteString(ASection, AString, AValue); { [Section] String=Value }

sIniFile.Free;

end;

 

{ReadSection считывает все пункты указанной секции - т.е. ключи перед знаком "="

ReadSectionValues полностью считывает все строки указанной секции, т.е. Punkt=xyz }

 

©Drkb::02307