Вывод некоторых параметров из *.ini (или *.txt) файлов в поля Label

[grey]

Всем привет.
У меня такая проблема.
Необходимо осуществить вывод некоторых параметров из *.ini файла в Label(n).
С созданием формы и диалогом для открытия файла я разобрался. Не могу осуществить вывод параметров.
Приму любую помощь, как конкретную, так и ссылки.

За ранее благодарен.

PS
Зачем мне это нужно? На работе программа обслуживающая оборудование сохраняет свои настройки в *.ini файлы (объёмом 38~96 kB и примерно в 4500 строк). Понятно, что просмотреть это вручную глобально. Мне необходимо визуализировать только особо важные параметры.

Отрывок из *.ini:
---
...
aoLAuxMovDelay=0
aoLAuxMovDuration=0
[frmHeatersCompact]
txtMaterial=Mat.1
PROZone_0=35
DNEGZone_0=10
DPOSZone_0=10
PREZone_1=140
PROZone_1=165
DNEGZone_1=15
DPOSZone_1=15
PREZone_2=140
PROZone_2=170
DNEGZone_2=15
...
---

[_Dmitry]

//создаешь переменную
var
IniF: TIniFile;
//..............
//создать объект-файл
IniF:=TIniFile.Create('путь к ini файлу');
//читать из файла
X:=IniF.ReadInteger('секция','параметр',значение по умолчанию если параметр не найден);
S:=IniF.ReadString('секция','параметр','значение по умолчанию если параметр не найден');
//писать в файл
IniF.WriteInteger('секция','параметр',значение);
IniF.WriteString('секция','параметр','значение');
//удалить объект-файл
IniF.Free;

Ну, а с Label думаю разберешься

-----------------------------------
еще там есть
ReadSection('секция',Str); //записывает в Str имена всех параметров из секции
ReadSections(Str); //записывает в Str имена всех секций
здесь Str: TStrings, список строк

[grey]

Не понимаю :(
Сразу спотыкаюсь об TIniFile

procedure TForm1.Button1Click(Sender: TObject);

var
IniF: TIniFile;

При компиляции выдаёт ошибку:
[Ошибка] Unit1.pas(85): Undeclared identifier: 'TIniFile'
Хотя если заменить TIniFile на TextFile, то эта стока проходит.

[mihali4]

Сообщение от grey

Не понимаю
Сразу спотыкаюсь об TIniFile

procedure TForm1.Button1Click(Sender: TObject);

var
IniF: TIniFile;

При компиляции выдаёт ошибку:
[Ошибка] Unit1.pas(85): Undeclared identifier: 'TIniFile'
Хотя если заменить TIniFile на TextFile, то эта стока проходит.

Не надо пугаться...
Просто нужно ручками прописать в разделе USES модуля еще один - INIFILES...
И все будет оки...

[grey]

Спасибо, помогло :)
Но дальше опять застрял, не могу сам разобраться, сколько ни бьюсь, и в имеющейся инфе ни чего подходящего не нашёл.
Я хотел использовать станд. диалоговое окно выбора файла. Пример взял из книги и переделал под себя:

// щелчок на кнопке Открыть
procedure TForm1.Button1Click(Sender: TObject);

var
   IniF: TIniFile;       // Создал переменную IniF файл
   fName: String[80]; // имя файла
   buf: String[80];


begin
   if not OpenDialog1.Execute
    then { пользователь закрыл диалог
           щелчком на кнопе Отмена }
         exit;

   // пользователь выбрал файл
   fName := OpenDialog1.FileName;
   Form1.Caption := fName;
   AssignFile(IniF, fName);

[Ошибка] Unit1.pas(99): Incompatible types (Несовместимые типы)

Если оставить

AssignFile(f, fName);

как в книге
то [Ошибка] Unit1.pas(99): Undeclared identifier: 'f' (Необъявленный идентификатор: 'f')

PS
Окно выбора необходимо, т.к. *.ini файлы имеют разные имена (при сохранении настроек наладчик сам задаёт произвольное имя "рецепта") и могут находиться в разных местах.

[_Dmitry]

IniF это не файловая переменная, это объект класса TIniFile для работы с ini файлами, он создается следующим образом IniF:=TIniFile.Create('путь к ini файлу'); это вместо AssignFile
У вас будет:
IniF:=TIniFile.Create(fName);
после создания этого объекта можете читать и писать в этот файл, например, читать значение параметра PROZone_1 из секции frmHeatersCompact
X:=IniF.ReadInteger('frmHeatersComp act','PROZone_1',100);
после выполнения X=165, как вы написали выше, если по каким-то причинам этого параметра нет в файле X=100.
Если для работы использовать обычный текстовый файл, как вы пытаетесь делать, то вам самому придеться писать функции для поиска строк в файле, анализа этих строк, чтобы взять значение параметра и т.п.

[mihali4]

Пример взял из книги и переделал под себя:

Любезный, вы уж не мельчите так...
У вас что, разрешение экрана 640х480?
Ни черта же не видно!

[grey]

IniF это не файловая переменная, это объект класса...

То есть в моём случае наверное лучше работать с этими файлами как с тектовыми ? Просто программа управления машиной сохраняет "рецепты" в эти файлы, а в именах присутствуют такие условности как дата, сырьё, производительность и т.п. В папке может лежать несколько десятков таких *.ini. Хотя та программа (написана на VBasic) может загружать настройки из любого файла используя собственный диалог.
Вариант с прописыванием адреса мне ни как не подходит.
Придётся как с текстовым париться...

Любезный, вы уж не мельчите так...
У вас что, разрешение экрана 640х480?
Ни черта же не видно!

Извините, я в Opera сижу. Увеличение 150%. У меня всё так громоздко. Я из экономии места :) На этом форуме я новичёк. Спасибо за замечание: мельчить больше не буду.

PS
Opera
Версия 9.21
Сборка 641
Платформа Linux
Система i686, 2.6.17-13mdv
Прошу сильно не смеяться :)

[_Dmitry]

Придётся как с текстовым париться...

Зачем писать то, что за нас уже написали программисты из Borland-а?
Держи, в качестве примера, работающую программу. Файл test.ini создан по вашим данным (post #1).

[grey]

Держи, в качестве примера, работающую программу...

_Dmitry, боооольшое тебе (Вам) спасибо:)
Я честно говоря со всей серьёзностью взялся за изучение незнакомого (до этого баловался только скриптами в Линуксе и скриптами InqSoft Sign 0f Misery под Виндовс), а тут уже за меня всё написано. Осталось только форму расписать под хохлому :)
Сегодня пока на работе был, строил планы: приду домой, заставлю программу сначала скопировать любой файл в C:\\temp_\1.ini , а потом читать его по заранее заданному адресу.

Ещё раз огромное спасибо и тебе и этому форуму :)