Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
delph_t.doc
Скачиваний:
47
Добавлен:
12.04.2015
Размер:
2.26 Mб
Скачать

Файлы инициации

Файлы инициации в Delphiсвязаны с объектами классаTIniFile.Эти объекты не являются глобальными и создаются программно по мере надобности. С каждой программой можно связать сколько угодно файлов инициации.Физически файл инициации представляет собой обычный текстовый файл, который сохраняется либо в каталоге запуска программы (локальный файл), либо в каталоге запускаWindows(глобальный файл инициации). Файл содержит ряд секций, каждая из которых имеет заголовок и следующие за ним параметры. Заголовок - это произвольный английский текст, заключенный в квадратные скобки. Каждый параметр представлен строкой вида <ИМЯ_ПАРАМЕТРА>=<ЗНАЧЕНИЕ> Например: [Location]DataBase=C:\MYBASEGraphics=C:\BITMAPВ этом примере в секцииLocationфайла инициации представлены два параметра с именамиDataBaseиGraphics.Объекты классаTIniFile предоставляют удобные средства чтения/записи параметров по именампараметров и секций.В объекте имеется единственное свойствоFileName:String, содержащее имя файла инициации с возможным маршрутом поиска.

Класс tIniFile Методы класса tIniFile:

constructor Create(const FileName String) ;

Создает объект-файл с именем FileName. Это имя автоматически переносится в свойство FileName. Если физический файл существовал, он открывается, если нет - создается.

procedure DeleteKey(const Section, Ident: Strings-

Уничтожает значение параметра Ident в секции Section. Если указана несуществующая секция или имя несуществующего параметра, метод создаст секцию и/или установит в ней параметр с пустым значением.

procedure EraseSection(const Section: Strings-

Удаляет секцию со всеми ее параметрами. Если секции не существует, возникает исключительная ситуация.

function ReadBool (const Section, Ident: String; Default: Boolean): Boolean;

Возвращает значение логического параметра Ident в секции Section. Возвращает Default, если не существует указанная секция, или в ней нет нужного параметра, или, наконец, параметр имеет нелогическое значение.

function Readlnteger(const Section, Ident: String; Default: Longint): Longint;

Возвращает значение целого параметра Ident в секции Section. Возвращает Default, если не существует указанная секция, или в ней нет нужного параметра, или, наконец, параметр имеет нецелое значение.

procedure ReadSection (constSection: String; Strings:TStrings) ;

Помещает в список Strings имена всех параметров из секции Section.

procedure ReadSections(Strings:TStrings) ;

Помещает в список Strings имена всех секций файла.

procedure ReadSectionValues(const Section: String; Strings:TStrings) ;

Помещает в список Strings имена всех значений из секции Section.

function ReadString(const Section, Ident, Default: Strings-String;

Возвращает значение строкового параметра Ident в секции Section. Возвращает Default, если не существует указанная секция, или в ней нет нужного параметра, или, наконец, параметр не имеет значения.

procedure WriteBool(constSection, Ident: String; Value:Boolean) ;

Записывает в параметр Ident секции Section логическое значение Value.

procedure Writelnteger(const Section, Ident: String; Value:Longint) ;

Записывает в параметр Ident секции Section целое значение Value.

procedure WriteString(const Section, Ident, Value: String);

Записывает в параметр Ident секции Section строковое значение Value.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]