Не могу создать ini файл

@iskatel73 · Регистрация: 21.12.2011

Студворк — интернет-сервис помощи студентам

Привет всем.Нашёл пример как создать ini файл тутhttp://devoid.com.ua/faq/cpp_b... older.htmlДелал всё как написанно.Выдаёт ошибку

C++
1
2
3
4
5
[C++Error]Uint1.ccp(24): E2451 Undefined simbol 'TInifile'
[C++Error]Uint1.ccp(24): E2451 Undefined simbol 'Ini'
[C++Error]Uint1.ccp(24): E2303 Tyre name expected
[C++Error]Uint1.ccp(24): E2379 Statement missing;
[C++Error]Uint1.ccp(26): E2158 Operand of 'delete' must be non-const pointer

.Помогите пожалуйста.

@iskatel73 · 02.11.2012, 22:28 **[ТС]**

Разобрался надо было в той форме в который переходит удалить

C++
1
#include "Unit1.h"

@Dr. Who · 02.11.2012, 22:32

Теперь вы не сможете из второй формы управлять компонентами первой

@iskatel73 · 02.11.2012, 22:33 **[ТС]**

Спс большое а что делать чтоб можно было

@Dr. Who · 02.11.2012, 22:38

попробуй написать во второй форме extern TIniFile *Ini;

@iskatel73 · 02.11.2012, 22:39 **[ТС]**

Во всё ошибки нет сделал так

C++
1
extern TIniFile *Ini; //=  new TIniFile(Patch+"Klevalka.ini");

Спс большое за совет

@Dr. Who · 02.11.2012, 22:43

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

extern TIniFile *Ini; //= new TIniFile(Patch+"Klevalka.ini")

А зачем

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

//= new TIniFile(Patch+"Klevalka.ini");

@iskatel73 · 02.11.2012, 22:53 **[ТС]**

А как во 2 форме будет связь с ini файлом без этого

C++
1
extern TIniFile *Ini; //= new TIniFile(Patch+"Klevalka.ini")

@Dr. Who · 02.11.2012, 22:55

Я имею ввиду, зачем все, что после //?
Оно же заремлено.

@iskatel73 · 02.11.2012, 22:59 **[ТС]**

Это для меня чтоб знать для чего нужно

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

extern TIniFile *Ini;

@iskatel73 · 07.11.2012, 21:14 **[ТС]**

галочки в CheckListBox сохраняются но после закрытия они не читаются

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
TIniFile *Ini; //=  new TIniFile(Patch+"test.ini");
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
  {
  AnsiString Patch;
  Patch = ExtractFilePath(ParamStr(0)) ; // получаем путь к каталогу программы
  Ini = new TIniFile(Patch+"test.ini");
  for(int i = 0; i < CheckListBox1->Items->Count; i++)
     {
      CheckListBox1->Checked[i] = Ini ->ReadBool("fish",CheckListBox1->Items->Strings[i], false);
     }
}
 
 
//---------------------------------------------------------------------------
 
 void __fastcall TForm1::CheckListBox1Click(TObject *Sender)
{
    for(int i = 0; i < CheckListBox1->Items->Count; i++)
   {
    Ini->WriteBool("fish",CheckListBox1->Items->Strings[i],CheckListBox1->Checked[i]);
   }
 
   
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Ini;
Ini = NULL;
}
//---------------------------------------------------------------------------

и ещё проблемка они идут подряд.
[fish]
Валек=1
Голец арктический=1
Голец Черского=0
Гольян Чекановского=0
Елец Сибирский=0
Карась золотой=0
Карась серебряный=0
Колюшка девятииглая=0
Корюшка=0
Ленок=0
Ленский пескарь=0
Ленский хариус=0
Лещ Восточносибирский=0
Муксун=0
Налим=0
Нельма=0
Окунь=0
но рыбы иногда повторяются.допустим окунь есть на амуре озере и ещё на 5 базах.если я ставлю галочку амур окунь она будет появлятся на волге на окуне.можно как нибудь сделать чтоб сначала прописывалась база с ListBox1 а потом рыбы с этой базы
[амга]
Голец арктический=1
Голец Черского=0
Гольян Чекановского=0
Елец Сибирский=0
Карась золотой=0
Карась серебряный=0
Колюшка девятииглая=0
[амур]
Ленский пескарь=0
Ленский хариус=0
Лещ Восточносибирский=0
Муксун=0
Налим=0
Нельма=0
Окунь=0

@iskatel73 · 12.11.2012, 12:22 **[ТС]**

привет всем.что не у кого нет вариантов что сделать?

@Sasha · 12.11.2012, 12:44

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

галочки в CheckListBox сохраняются но после закрытия они не читаются

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
TIniFile *Ini; //=  new TIniFile(Patch+"test.ini");
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
  {
  AnsiString Patch;
  Patch = ExtractFilePath(ParamStr(0)) ; // получаем путь к каталогу программы
  Ini = new TIniFile(Patch+"test.ini");
  for(int i = 0; i < CheckListBox1->Items->Count; i++)
     {
      CheckListBox1->Checked[i] = Ini ->ReadBool("fish",CheckListBox1->Items->Strings[i], false);
     }
}
 
 
//---------------------------------------------------------------------------
 
 void __fastcall TForm1::CheckListBox1Click(TObject *Sender)
{
    for(int i = 0; i < CheckListBox1->Items->Count; i++)
   {
    Ini->WriteBool("fish",CheckListBox1->Items->Strings[i],CheckListBox1->Checked[i]);
   }
 
   
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Ini;
Ini = NULL;
}
//---------------------------------------------------------------------------

и ещё проблемка они идут подряд.
[fish]
Валек=1
Голец арктический=1
Голец Черского=0
Гольян Чекановского=0
Елец Сибирский=0
Карась золотой=0
Карась серебряный=0
Колюшка девятииглая=0
Корюшка=0
Ленок=0
Ленский пескарь=0
Ленский хариус=0
Лещ Восточносибирский=0
Муксун=0
Налим=0
Нельма=0
Окунь=0
но рыбы иногда повторяются.допустим окунь есть на амуре озере и ещё на 5 базах.если я ставлю галочку амур окунь она будет появлятся на волге на окуне.можно как нибудь сделать чтоб сначала прописывалась база с ListBox1 а потом рыбы с этой базы
[амга]
Голец арктический=1
Голец Черского=0
Гольян Чекановского=0
Елец Сибирский=0
Карась золотой=0
Карась серебряный=0
Колюшка девятииглая=0
[амур]
Ленский пескарь=0
Ленский хариус=0
Лещ Восточносибирский=0
Муксун=0
Налим=0
Нельма=0
Окунь=0

Помоему тут у тебя опять накручено с кодом

cpp_developer · 12.11.2012, 13:17

Вообще-то, в ини следует заносить не окуня, а переменную:

C++
1
2
3
4
5
6
7
8
9
10
11
12
AnsiString perch1,perch2,perch3,perch4,perch5;
perch1 = "окунь 1";
perch2 = "окунь 2";
perch3 = "окунь 3";
perch4 = "окунь 4";
perch5 = "окунь 5";
// в ини
perch1 = 0;
perch2 = 0;
perch3 = 1;
perch4 = 1;
perch5 = 0;

@iskatel73 · 12.11.2012, 18:55 **[ТС]**

LK получается если 40 окуней на разных базах .мне надо создать 40 переменных?

@Sasha · 12.11.2012, 18:59

А зачем ты вообще используешь переменные для рыб?

@iskatel73 · 12.11.2012, 19:37 **[ТС]**

Саня я не использую переменную.В ини у меня так
[fish]
Валек=0
Голец арктический=0
Голец Черского=0
Гольян Чекановского=0
Елец Сибирский=0
Карась золотой=0
Карась серебряный=0
Колюшка девятииглая=0

С галочками разобрался теперь читаются

просто надо было на ListBox1 ставить

C++
1
2
for(int i = 0; i < CheckListBox1->Items->Count; i++)
CheckListBox1->Checked[i] = Ini ->ReadBool("fish",CheckListBox1->Items->Strings[i], false);

Добавлено через 2 минуты
Мне теперь бы разобратся как в место [fish] ставилась база.чтоб с рыбами не мудрить

cpp_developer · 12.11.2012, 23:07

Переменные, я так понимаю, для разных видов окуня, сиречь, Окунь Балтийский и Окунь Небалтийский, это раз, и кто мешянет занести в переменную как там ваша база называется и прописать эту переменную как имя секции ини?

@iskatel73 · 13.11.2012, 22:04 **[ТС]**

LK,в том и проблема, что вид окунь один.но он водится на 15 базах.и когда я ставлю галочку на окуне на одной базе,то на 14 тоже стоят галочки.вот и думаю как сделать имя секции,именем базы.PS.базы загружаются у меня в ListBox1.При клике на базу в (ListBox1) загружаются рыбы с этой базы в CheckListBox1.Я так понимаю что при клике на ListBox1 должна создаваться секция с именем базы в ini (по которой был произведён клик)А как вот это сделать не знаю.

cpp_developer · 14.11.2012, 11:50

C++
1
2
AnsiString baseName = ListBox->Item;
Ini ->WriteString(baseName,Гольян Чекановского...

@iskatel73 · 15.11.2012, 20:27 **[ТС]**

LK,извини но я не совсем понял.

C++
1
AnsiString baseName = ListBox->Item;

это считывает какая база

C++
1
Ini ->WriteString(baseName,Гольян Чекановского...

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;
extern TIniFile *Ini; //=  new TIniFile(Patch+"Klevalka.ini");
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    AnsiString Patch;
  Patch = ExtractFilePath(ParamStr(0)) ; // получаем путь к каталогу программы
   Ini = new TIniFile(Patch+"Klevalka.ini");
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Ini;
Ini = NULL;
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
   AnsiString name;
    name+="БЛОКНОТ\\";
    name+=ListBox1->Items->Strings[ListBox1->ItemIndex];
    name+="\\";
    name+="ИНФО";
    name+=".txt";
    ListBox2->Clear();
    ListBox2->Items->LoadFromFile(name);
    name="";
 
    for(int i = 0; i < CheckListBox1->Items->Count; i++)
CheckListBox1->Checked[i] = Ini ->ReadBool("fish",CheckListBox1->Items->Strings[i], false);//чтение галочек
 
}
 
//-загрузка наживок--------------------------------------------------------------------------
 
void __fastcall TForm1::CheckListBox1Click(TObject *Sender)
{
    AnsiString name;
    name+="ИНФО.О РЫБЕ\\";
    name+=CheckListBox1->Items->Strings[CheckListBox1->ItemIndex];
    name+="\\";
    name+="НАЖИВКА";
    name+=".txt";
    Memo2->Clear();
    Memo2->Lines->LoadFromFile(name);
    name="";
 
    for(int i = 0; i < CheckListBox1->Items->Count; i++)
 Ini->WriteBool("fish",CheckListBox1->Items->Strings[i],CheckListBox1->Checked[i]); //СОХРАНЕНИЯ ИНИ
 
//---------------------------------------------------------------------------

и куда твой код вставить?

Новые блоги и статьи Все статьи Все блоги /
Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .
Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .

@Dr. Who 29 / 29 / 4 Регистрация: 28.08.2012 Сообщений: 154
	02.11.2012, 22:32
	Теперь вы не сможете из второй формы управлять компонентами первой 0

@iskatel73 5 / 5 / 0 Регистрация: 21.12.2011 Сообщений: 157
	02.11.2012, 22:33 [ТС]
	Спс большое а что делать чтоб можно было 0

@Dr. Who 29 / 29 / 4 Регистрация: 28.08.2012 Сообщений: 154
	02.11.2012, 22:38
	попробуй написать во второй форме extern TIniFile *Ini; 1

@Dr. Who 29 / 29 / 4 Регистрация: 28.08.2012 Сообщений: 154
	02.11.2012, 22:55
	Я имею ввиду, зачем все, что после //? Оно же заремлено. 0

@iskatel73 5 / 5 / 0 Регистрация: 21.12.2011 Сообщений: 157
	12.11.2012, 12:22 [ТС]
	привет всем.что не у кого нет вариантов что сделать? 0

@iskatel73 5 / 5 / 0 Регистрация: 21.12.2011 Сообщений: 157
	12.11.2012, 18:55 [ТС]
	LK получается если 40 окуней на разных базах .мне надо создать 40 переменных? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	12.11.2012, 18:59
	А зачем ты вообще используешь переменные для рыб? 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	12.11.2012, 23:07
	Переменные, я так понимаю, для разных видов окуня, сиречь, Окунь Балтийский и Окунь Небалтийский, это раз, и кто мешянет занести в переменную как там ваша база называется и прописать эту переменную как имя секции ини? 0

@iskatel73 5 / 5 / 0 Регистрация: 21.12.2011 Сообщений: 157
	13.11.2012, 22:04 [ТС]
	LK,в том и проблема, что вид окунь один.но он водится на 15 базах.и когда я ставлю галочку на окуне на одной базе,то на 14 тоже стоят галочки.вот и думаю как сделать имя секции,именем базы.PS.базы загружаются у меня в ListBox1.При клике на базу в (ListBox1) загружаются рыбы с этой базы в CheckListBox1.Я так понимаю что при клике на ListBox1 должна создаваться секция с именем базы в ini (по которой был произведён клик)А как вот это сделать не знаю. 0