|
|
 |
Сервер
поддерживается
кафедрой информатики и
вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by
|
Приложение и среда его выполнения. Файлы инициализации
TIniFile
= class(TObject)
Этот класс ?
надстройка над файлом
инициализации (его расширение .INI) и
процедурами чтения и записи в него
значений разных типов. Обратите
внимание, что все читаемые и
записываемые строки имеют тип string
(а не pChar, как в стандартном API Windows).
Конструктор
класса
constructor Create(const
FileName: string);
создает объект,
соответствующий файлу
инициализации с именем FileName. В
дальнейшем оно доступно через
свойство:
(Ro) property FileName: string;
Файл
инициализации состоит из строк
вида "параметр=значение".
Такие строки сведены в секции;
имена секций заключаются в
квадратные скобки.
Методы класса,
посредством которых
осуществляется работа с файлом,
приведены в таблице:
| function ReadString(const
Section, Ident, Default: string): string; |
Возвращает строку
из секции Section, являющуюся
значением параметра Ident. При
отсутствии секции или
параметра возвращается строка
Default. |
Procedure WriteString
(const Section,
Ident, Value: String); |
Записывает (или
перезаписывает) в секцию Section
строку Ident=Value. |
| Function ReadInteger
(const Section, Ident: string; Default: Longint):
Longint; |
Возвращает
значение параметра Ident из
секции Section, преобразованное в
целое число. В случае любых
ошибок возвращается значение
Default. |
| Procedure WriteInteger
(const Section, Ident: string; Value: Longint) ; |
Преобразует Value в
строку и записывает его в
качестве значения Ident в секции
Section. |
| Function ReadBool (const
Section, Ident: string; Default: Boolean): Boolean; |
Работает как
ReadInteger, но преобразует значение
параметра в булеву переменную. |
| Procedure WriteBool
(const Section, Ident: string; Value: Boolean); |
Работает, как
WriteInteger, но преобразует булево
значение Value к виду '0?/'1?. |
| procedure ReadSection
(const Section: string; Strings: TStrings) ; |
Считывает в набор
строк Strings секцию с именем Section.
Максимальная длина секции ? 8191
байт. |
| procedure ReadSectionValues
(const Section: string; Strings: TSCrings) ; |
Считывает из
секции Section в набор строк Strings
только значения параметров. |
| procedure EraseSection
(const Section: string); |
Удаляет всю секцию
с именем Section. |
Для
комментария : kadan@grsu.grodno.by
|
|
