Не получается работа с INI файлом

[Nevis]

Привет знатокам С++ Builder`а
К Вам вопрос коллеги:
Хочу понять как мне записать и считать данные из ini файла.
Беру за основу пример из хелпа билдера, без каких либо изменений пихаю к себе в код и получаю ответ компилятора, пошел я на .... и т.д.
Вот

Код:

TIniFile *ini;
  ini = new TIniFile( ChangeFileExt( Application->ExeName, ".INI" ) );
  Top     =  ini->ReadInteger( "Form", "Top", 100 );
  Left    =  ini->ReadInteger( "Form", "Left", 100 );
  Caption =  ini->ReadString( "Form", "Caption",
                              "Default Caption" );
  //ini->ReadBool( "Form", "InitMax", false ) ?
        WindowState = wsMaximized :
        WindowState = wsNormal;
  delete ini;

Далее следует ответ компилятора при подключении inilib.h:

Код:

nmsupp.h  Declaration syntax error

Плюс ссылка на строку из этого файла:

Код:

extern LPEXPRESSION         WINAPI InitializeExpression(LPEXPRESSION Expression);

Скажите пожалуйста, у кого-нибудь есть предложения? или комменты по данной теме.
Буду рад, если кто-нибудь оставит мне кусок рабочего кода, мне важно узнать как обстаят здесь дела с синтаксисом и т.д.
Позарез надо сделать, бьюсь уже битый час - все бестолку

[PooH]

я вроде "inifiles.hpp" подключал и проблем не было... т.е.

Код:

#include <IniFiles.hpp>

[direktorSan]

У меня, собственно, проблем с INI-файлами не возникало (в CB 5.0).
Единственное, что могу посоветовать, подключить не inilib.h, а, насколько я помню, *.hpp файл. (В общем в хелпе в примерах посмотреть надо какой файл подключается)
Но если до вечера терпит, то вечером скину рабочий код.

[Nevis]

Чтение освоил, всем спасибо, а запись не дается!
Не подскажите в чем беда?

Мой ini файл имеет структуру:

Код:

[FirmP]

Block=0

[FirmV]

Block=0

[FirmS]

Block=1

[FirmC]

Block=0

Код куска программы такой:

Код:

void LockDay(char *Sector)
{
int Block = 0;
TIniFile *ini;
ini = new TIniFile("J:\\Graph3\\data.ini");
ini->WriteInteger( Sector, "Block", 1);
  if (Block == 1)
   {Form2->BitBtn8->Enabled = false;
    Form2->BitBtn9->Enabled = false;
    Form2->BitBtn10->Enabled = false;}
  else
   {Form2->BitBtn8->Enabled = true;
    Form2->BitBtn9->Enabled = true;
    Form2->BitBtn10->Enabled = true;}
delete ini;
}
void __fastcall TForm3::Edit1KeyPress(TObject *Sender, char &Key)
{
if (Key==char(13))
{
if (Form3->Edit1->Text == "3038544")
 {
 if (Form2->Edit2->Text == "F")
  {
  if (Form2->Edit3->Text == "P")
   {LockDay("FirmP");}
  else
   {
   if (Form2->Edit3->Text == "V")
    {LockDay("FirmV");}
   else
     {
     if (Form2->Edit3->Text == "S")
      {LockDay("FirmS");}
     else
       {
       if (Form2->Edit3->Text == "C")
        {LockDay("FirmC");}
       else
         {
         if (Form2->Edit3->Text == "Y")
          {LockDay("FirmY");}
         else
           {
           if (Form2->Edit3->Text == "U")
            {LockDay("FirmU");}
           else
             {
             if (Form2->Edit3->Text == "W")
              {LockDay("FirmW");}
  }}}}}}}
  Form3->Close();
 }
else
 {ShowMessage("Ну если не знаешь пароль, чего суешь нос?");
 Form3->Close();}
}
}

Хотел получить следующее, в эдитах буквы P/V/S/C/Y/U/W
В зависимости от буквы надо менять значение Block c нуля на единицу, в определенном контейнере. Какой контейнер - видно из цепочки if`ов, при верно набранном парроле 3038544.
То есть если пароль набран верно, то читаю на другой форме, какая буква содержится в эдите, и от этого меняю в определенном sector значение block
Соответственно сектор должен принимать значения "FirmP", "FirmV", "FirmS" и т.д.

[PooH]

и что именно не работает? Кстати, у тебя Block всегда 0 - зачем делать проверку, что он может быть 1?

[Nevis]

он у меня не всегда 0
прога читает ини файл, определенный сектор, FirmP например.в нем block может быть равен 0 а может и единице.
сейчас у меня программа читает ини файл и в зависимости от того чему равен block выполняет свою функцию, но изменять то у меня пока и не получается этот block c нуля на единицу

[PooH]

Код:

int Block = 0; -- BLOCK =0 !!!!!!!!!!!!!!! Всегда
TIniFile *ini;
ini = new TIniFile("J:\\Graph3\\data.ini");
ini->WriteInteger( Sector, "Block", 1); -- ЗДЕСЬ НЕ ЧИТАЕТСЯ А _ПИШЕТСЯ_ INI-ФАЙЛ
-- ПРИ ЭТОМ ЗНАЧЕНИЕ Block _НЕ_ ИЗМЕНЯЕТСЯ
  if (Block == 1)
   {Form2->BitBtn8->Enabled = false;
    Form2->BitBtn9->Enabled = false;
    Form2->BitBtn10->Enabled = false;}
  else
   {Form2->BitBtn8->Enabled = true;
    Form2->BitBtn9->Enabled = true;
    Form2->BitBtn10->Enabled = true;}
delete ini;

я так понимаю,  сначала надо прочитать, а потом изменить т.е.

Код:

TIniFile *ini;
ini = new TIniFile("J:\\Graph3\\data.ini");
int Block = ini->ReadInteger( Sector, "Block", 0);
  if (Block == 1)
   {Form2->BitBtn8->Enabled = false;
    Form2->BitBtn9->Enabled = false;
    Form2->BitBtn10->Enabled = false;
    ini->WriteInteger( Sector, "Block", 0);
}
  else
   {Form2->BitBtn8->Enabled = true;
    Form2->BitBtn9->Enabled = true;
    Form2->BitBtn10->Enabled = true;
    ini->WriteInteger( Sector, "Block", 1);
}
delete ini;

Код:

[Nevis]

нет
но все равно спасибо что ткнули носом
вот что надо:

Код:

void LockDay(char *Sector)
{
 TIniFile *ini;
 ini = new TIniFile("J:\\Graph3\\data.ini");
 ini->WriteInteger( Sector, "Block", 1);
 delete ini;
}

надо просто заменить в нужном секторе 0 на 1
а он не хочет этого делать

[PooH]

на что-нибудь ругается?

[direktorSan]

Вот кусок рабочего кода:

    FullINIPath = ExtractFilePath(Application->ExeName) + "\\" + Application->Title + ".ini";
    Created = !FileExists(FullINIPath);
    //если файла не было - он будет создан
    //если файл был - он будет открыт
    IniDataFile = new TIniFile (FullINIPath);
    if (Created == true)
      {
        IniDataFile->WriteString("NumberMask", "Prefix", "");
        IniDataFile->WriteString("NumberMask", "PRSeparator", "");
        IniDataFile->WriteString("NumberMask", "Root", "");
        IniDataFile->WriteString("NumberMask", "RSSeparator", "");
        IniDataFile->WriteString("NumberMask", "Suffix", "");
        IniDataFile->WriteString("OrdersFolder", "Path", "");
        IniDataFile->WriteString("AddFilesAndFolders", "CommonFiles", "");
        IniDataFile->WriteString("AddFilesAndFolders", "CommonFolders", "");
      };
Это запись строк.
Или еще один с записью числовых параметров

      TIniFile *OptIni = new TIniFile (ExtractFilePath(Application->ExeName) + "\\" + Application->Title + ".ini");
      OptIni->WriteInteger("Recycled", "Атрибуты", 0);
      OptIni->WriteInteger("Recycled", "Запросы", 0);

Все 100%-но рабочее, т.к. писалось буквально месяц назад и отдавалось заказчику без проблем.

[direktorSan]

И еще дополнение.
У тебя описание функции такое:

void LockDay(char *Sector)

А, насколько я помню, функции INI-класса работают с AnsiString-ами. Т. е. надо

void LockDay(AnsiString Sector)

Проверь. Должно заработать.