Советы начинающим




Глава 28


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

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 }








Содержание  Назад  Вперед