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

Материал из DRKB

INI-файлы (чтение/запись)[править | править код]

function ReadIni(ASection, AString: string): string;
var
  Ini: TIniFile;
  sPath: string[60];
const
  S = 'xyz'; { стандартная строка для выдачи ошибок чтения }
begin
  GetDir(0, sPath); { текущий каталог }
  Ini := TIniFile.Create(sPath + '\Name.INI');
  Result := Ini.ReadString(ASection, AString, S); { [Section] String=Value }
  Ini.Free;
end;

procedure WriteIni(ASection, AString, AValue: string);
var
  Ini: TIniFile;
  sPath: string[60];
begin
  GetDir(0, sPath); { текущий каталог }
  Ini := TIniFile.Create(sPath + '\Name.INI');
  Ini.WriteString(ASection, AString, AValue); { [Section] String=Value }
  Ini.Free;
end;

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


ID: 02307