Оформил: DeeCo

Листинг 4-1 Раздел типичного файла WIN.INI

[windows]
run =
NullPort = None
load =
device = LaserJet 5 P, HPPCL5MS, LPT1:
[desktop]
Wallpaper = (None)
TileWallpaper = 1
WallpaperStyle = O
Pattern = (None)
[Intl]
iCountry = 1
ICurrDigits = 2
iCurrency = 0
iDate = 0
iDigits = 2
iLZero = 1
iMeasure = 1
iNegCurr = 0
iTime = 0
iTLZero = 0

Таблица 4-1 показывает свойства и методы, реализуемые TIniFile.

Таблица 4-1 Методы и свойства реализуемые TIniFile Использовать или установить это ... Чтобы сделать это ... Наследование Create Сконструировать экземпляр TIniFile. TObject DeleteKey Удалить идентификатор INI-файла и его значение. Нет EraseSection Убрать из INI-файла целый раздел. Нет FileName Получить инкапсулированное имя INI-файла. Нет ReadBool Извлечь из INI-файла логическое значение. Нет Readinteger Извлечь из INI-файла целое значение. Нет ReadSection Извлечь из раздела INI-файла имена идентификаторов. Нет ReadSections Извлечь из INI-файла список имен разделов. Нет ReadSectionValues Извлечь из INI-файла все содержимое раздела. Нет ReadString Извлечь из INI-файла строковое значение. Нет WriteBool Записать в INI-файл логическое значение. Нет Writeinteger Записать в INI-файл целое значение Нет WriteString Записать в INI-файл строковое значение Нет

Важно

Метод Create

Метод DeleteKey

procedure TForm1.Button1Click(Sender: TObject);
var
  Myini: TIniFile;
begin
  MyIni: = TIniFile.Create('DELETE.INI');
  // Удалить ключ, содержащий идентификатор Option1 из раздела
  // Main INI-файла
  MyIni.DeleteKey('Main', 'Option1');
  MyIni.Free;
end;

Метод EraseSection

// данная процедура откроет INI-файл с именем " TEST.INI", найденный в
// каталоге Windows, и удалит раздел под названием Configuration

procedure TForm1.Button1Click(Sender: TObject);
// объявление переменной типа TIniFile под названием MyIni
var
  MyIni: TIniFile;
begin
  // создание экземпляра MyIni и присвоение ему INI-файла
  MyIni := TIniFile.Create('TEST.INI');
  // Удалить раздел в TEST.INI под названием Configuration
  MyIni.EraseSection('Configuration');
  MyIni.Free;
end;

[Configuration]
Keyl
Кеу2
и т.д.

Свойство FileName

// данная процедура будег печатать имя INI-файла,
// инкапсулированное в объекте TIniFile

procedure TForm1.Button1Click(Sender: TObject);
var
  MyIni: TIniFile;
begin
  // создание экзенпляра MyIni и присвоение ему INI-файла
  MyIni: = TIniFile.Create('TEST.INI');
    // печатать имя INI-файла в заголовке формы
    Form1.Caption := MyIni.FileName;
    MyIni.Free;
end;

Свойство ReadBool

// Данная процедура проверяет идентификатор TileWallpaper раздела Desktop
// в файле WIN.INI. Затем устанавливается заголовок формы, указывающий
// на то, включена (on) или выключена (off) опция TileWallpaper.

procedure TForm1.FormCreate(Sender: TObject);
var
  MyIni: TIniFile;
begin
  MyIni: = TIniFile.Create('Win.ini');
  if MyIni.ReadBool('Desktop', 'TileWallpaper', True) = True then
    Form1.Caption := 'Your desktop wallpaper is tiled';
else
  Form1.Caption: = 'Your desktop wallpaper is not tiled';
  MyIni.Free;
end;

Метод ReadInteger

// Данная процедура проверяет идентификатор iCountry раздела Inti
// в файле WIN.INI. Затем устанавливается заголовок формы,
// указывакщий на то, находитесь ли вы в Соединенных Штатах или нет.

procedure TForm1.FormCreate(Sender: TObject);
var
  MyIni: TIniFile;
begin
  MyIni := TIniFile.Create('win.ini');
  if MyIni.ReadInteger('Intl', 'iCountry', 1) = I then
    Form1.Caption := 'Your are in the Onited States';
else
  Form1.Caption: = 'Your are not in the United States';
  MyIni.Free;
end;

Метод ReadSection

// Прежде всего добавим в форму ListBox. Данная процедура будет
// печатать список идентификаторов в разделе Desktop файла
// WIN.INI при создании формы

procedure TForm1.FormCreate(Sender: TObject);
var
  MyIni: TIniFile;
begin
  MyIni: = TIniFile.Create('WIN.INI');
  MyIni.ReadSection('Desktop', ListBox1.Items);
  MyIni.Free;
end;

Метод ReadSections

// Данный обработчик события при нажатии кнопки печатает имена
// разделов INI-файла в окне списка

procedure TForm1.Button1Click(Sender: TObject);
var
  MyIni: TIniFile;
begin
  ListBox1.Clear;
  MyIni := TIniFile.Create('test.ini');
  MyIni.ReadSections(listBox1.Items);
  MyIni.Free;
end;

Метод ReadSectionValues

// Прежде всего добавим к форме ListBox. Данная процедура будет
// печатать список идентификаторов и их значений из раздела
// Desktop файла WIN.INI при создании формы

procedure TForm1.FormCreate(Sender: TObject);
var
  MyIni: TIniFile;
begin
  MyIni := TIniFile.Create('WIN.INI').
    MyIni.ReadSectionValues('Desktop', ListBox1.Items);
  MyIni.Free;
end;

identifier=value

В приведенном выше примере в окне списка отображается весь список (см. рис. 4-3). Используя свойство Values из TString можно отобразить отдельные значения. Или же можно скопировать весь раздел в список строк и получить доступ к каждой строке по индексу:

// В данном примере раздел Desktop файла WIN.INI считывается в
// список строк и затем в заголовке формы печатается первая
// строка. При этом используется ее индекс.

procedure TForm1.FormCreate(Sender: TObject);
var
  MyIni: TIniFile;
  MyStringList: TStringList;
begin
  MyIni := TIniFile.Create('WIN.INI');
  // получение экземпляра списка строк
  MyStringList := TStringList.Create;
  // копировать раздел в список строк
  MyIni.ReadSectionValues('Desktop', MyStringList);
  // печатать первую строку списка в заголовке формы
  Form1.Caption := MyStringList.Strings[0];
  MyIni.Free;
  MyStringList.Free;
end;

Метод ReadString

// Данная процедура проверяет идентификатор sCountry раздела Intl
// в файле WIN.INI. Затем устанавливается заголовок формы в значении
// идентификатора sCountry.

procedure TForm1.FormCreate(Sender: TObject);
var
  MyIni;
  TIniFile;
begin
  MyIni := TIniFile.Create('Win.ini');
  Form1.Caption := MyIni.ReadString('Intl', 'sCountry', 'no country listed');
  // не забудьте пo завершении работи разрушить MyIni
  MyIni.Free;
end;

РИСУНОК 4-3 Окно списка отображает идентификаторы и их значения в разделе [Desktop] файла WIN.INI.
РИСУНОК 4-4 Получение отдельных идентификаторов вместе со значениями и печать в заголовке формы.

Метод WriteBool

// Данная процедура создает новый INI-файл с именем TEST.INI
// (если он еще не существует) и добавляет двоичный идентификатор
// SampleBooleanEntry со значением True. Если идентификатора нет,
// он также будет создан.

procedure TForm1.FormCreate(Sender: TObject);
var
  Writeini: TIniFile;
begin
  Writeini: = TIniFile.Create('TEST.INI');
  Writeini.WriteBool('Sample Section', 'SampleBooleanEntry', True);
  Writeini.Free;
end;

[Sample Section]
SampleBooleanEntry = 1

Метод Writeinteger

// Данная процедура создает новый INI-файл с именем TEST.INI
// (если он еще не существует) и добавляет целый идентификатор
// SampleIntegerEntry со значением 12024. Если идентификатора
// нет, он также будет создан.

procedure TForm1.FormCreate(Sender: TObject);
var
  Writeini: TIniFile;
begin
  Writeini := TIniFile.Create('TEST.INI');
    Writeini.Writelnteger('Sample Section', 'SampleIntegerEntry', 12024);
    Writeini.Free;
end;

[Sample Section]
SampleIntegerEntry = 12024

Метод WriteString

// Данная процедура создает новый INI-файл с именем TEST. INI
// (если он еще не существует) и добавляет строковый
// идентификатор SampleStringEntry со значением строки. Если
// идентификатора нет, он также будет создан.

procedure TFonnI.FormCreate(Sender: TObeject);
var
  Writeini: TIniFile;
begin
  Writeini := TIniFile.Create('TEST. INI'), •
    Writeini.WriteString('Sample Section', 'SampleStringEntry',
    'this is example of writing a string to an INI file');
    Writeini.Free;
end;

После выполнения приведенного примера в каталоге Windows можно будет открыть вновь созданный TEST.INI, в котором представлены такие строки:

[Sample Section]
SamplectringEntry = this is example of writing a string to an INI file