Сохранения результатов программы в файл

@Best777 · Регистрация: 09.01.2013

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

Здраствуйте всем.

Создаю программу "Среда для создания экспертных систем" на c++ Builder 6. Вопросы создаются как названия в GroupBox-сах а варианты как CheckButton или RadioButton внутри этих GroupBox-сов. Понятно что они создаются динамически.

Нужно чтоб когда нажата кнопка Сохранить все даные сохранялись в файл например txt(Вам знать какой лучше).
И после того как программа перезапускалась и нажата кнопка Загрузить все какбы Я думаю пересоздавались у цыкле снова на форму. Как это лучше зделать??? Помогите пожалуйста. Если можно какие та наброски(программы),
Или просто на словах с чего начать. Буду очень благодарен.

@Best777 · 14.01.2013, 04:11 **[ТС]**

еще один вопросик:

как записать свойство parent?

пишу так:

C++
1
Ini->WriteString("GroupBox",AnsiString("Parent")+AnsiString(i),KNOPKA[i]->Parent);

видает ошибки:

C++
1
2
[C++ Error] Unit1.cpp(1077): E2034 Cannot convert 'TWinControl * const' to 'AnsiString'
[C++ Error] Unit1.cpp(1077): E2342 Type mismatch in parameter 'Value' (wanted 'const AnsiString', got 'TWinControl *')

как исправить??

@BRcr · 14.01.2013, 04:26

C++
1
KNOPKA[i]->Parent->Name

@Best777 · 14.01.2013, 05:20 **[ТС]**

блин. заработало но неправильно...
не записывает ето свойство всеравно!

C++
1
2
3
4
5
6
[number]
number=1
[GroupBox]
Parent1=
Left1=11
Top1=104...

может еще вариант есть?
просто если parent не указать то объект не пересоздастца правильно.
У меня
KNOPKA[i]->Parent=PageControl1->ActivePage;

Добавлено через 21 минуту
наверное все дело в том что PageControl1->ActivePage не имеет нормального имени!(
виводил KNOPKA[i]->Parent->Name в Edit->Text--- пусто.

@BRcr · 14.01.2013, 14:34

C++
1
2
3
4
5
6
7
void __fastcall TForm1::btn1Click( TObject *Sender )
{
    TButton *bt = new TButton( this );
    bt->Parent = pgctrl1->ActivePage;
    bt->Caption = "new button";
    Caption = bt->Parent->Name;
}

Все арбайтен как положено. Выкладывай код...

@Best777 · 14.01.2013, 15:07 **[ТС]**

У вас тогда наверно новее версия с++ builder или что?,потому что я тоже самое пишу:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 KNOPKA[N] = new TGroupBox(Form1);
  
         
KNOPKA[N]->Parent = PageControl1->ActivePage;
              Edit8->Text=KNOPKA[N]->Parent->Name;
        if(top<400){
        KNOPKA[N]->Left = 11;
        KNOPKA[N]->Top = 4+N*100;}
        else{
         KNOPKA[N]->Left = 4+N*10;
        KNOPKA[N]->Top = 300;}
              KNOPKA[N]->ParentColor=false;
            KNOPKA[N]->Color=ColorBox1->Selected;
        KNOPKA[N]->Font->Color=clNavy;
        if(Form1->Edit2->Text.Length()>12){
         KNOPKA[N]->Width=140+2*Form1->Edit2->Text.Length();} //äîïðàöþâàòè(íå ïðàâåëüíà ôîðìóëà)
        else {KNOPKA[N]->Width=140;}
        KNOPKA[N]->Name=AnsiString("KNOPKA")+ AnsiString(N);
        KNOPKA[N]->Font->Size=14;
  KNOPKA[N]->Caption =Edit2->Text;

наверно в моей 6 версии Borland c++ ето не доработано.... какое ваше мнения?

Добавлено через 1 минуту
от того что заминил Form1 на this нічего не поменялось...

Добавлено через 2 минуты

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

Caption = bt->Parent->Name;

Caption--простая переменная?

mimicria · 14.01.2013, 15:30

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

наверно в моей 6 версии Borland c++ ето не доработано.... какое ваше мнения?

В моей 6 всё доработано

C++
1
2
3
4
    TButton *bt = new TButton( this );
    bt->Parent = Form1;
    bt->Caption = "new button";
    ShowMessage(bt->Parent->Name);

Показывает родителя как и положено - Form1

@BRcr · 14.01.2013, 15:37

Caption эквивалентно this->Caption, то бишь это свойство формы в данном случае.

У меня XE.
Вероятно, глюк билдера какой-то... эти групбоксы хоть появляются на вкладке-то?
Еще можешь попробовать создать пустой проект и протестировать это поведение в нем...

Добавлено через 3 минуты
Где у тебя этот код выполняется?

@Best777 · 14.01.2013, 15:52 **[ТС]**

сори...
на чистом проекте етот код идет.
Я нашел ошибку: Когда названия стандартное(TabSheet[i]) тогда все норм. а у меня кнопкой можно свое названия записывать и тогда ничего не записуетса в ini файл и если просто вывести на Edit то тоже пусто!
как ето выправить если я хочу что б названия били написание на русском? (Получается что названия parent оно берет с TabSheet1->Caption) почему так?? спасибо что помогаете!!
меняю названия так:

C++
1
2
3
int j=PageControl1->ActivePageIndex+1;
  tab[j]->Caption="";
  tab[j]->Caption=AnsiString(Edit5->Text);

Добавлено через 4 минуты
BRcr Все показуется все работает, но не записывается parent в ini-файл.
Полюбом названия parent есть, потому что оно б так не создалось на вкладке.

Добавлено через 4 минуты
извини mimicria у меня проблема с PageControl1->ActivePage. если тебе не сложно можешь создать на форме
PageControl1 и на создавать там вкладок(правий клик->new page). Потом создать кнопку и туда запихнуть тот код что у меня више и Edit1 создать. Потом поменять названия вкладок на шото русское и вывести
Edit1->Text=KNOPKA[N]->Parent->Name;. пожалуйста...

Добавлено через 1 минуту
В Edit1 что то вывелось?

mimicria · 14.01.2013, 16:00

Да без разницы

C++
1
2
3
4
 TButton *bt = new TButton( this );
 bt->Parent = PageControl1->ActivePage;
 bt->Caption = "new button";
 ShowMessage(bt->Parent->Name);

А название Табшита меняете через Caption? Или таки Name ?

@Best777 · 14.01.2013, 16:03 **[ТС]**

Через Caption.
По любом глюк какой то...

mimicria · 14.01.2013, 16:06

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

tab[j]->Caption=AnsiString(Edit5->Text);

А, табы тоже динамические? Как имена табам присваиваются?

@BRcr · 14.01.2013, 16:09

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

Как имена табам присваиваются?

Чувствую, что никак...

mimicria · 14.01.2013, 16:17

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

Чувствую, что никак...

Это решило бы вопрос с пустотой в паренте, и это черт возьми работает

C++
1
2
3
4
5
 TTabSheet *mytab = new TTabSheet(PageControl1);
 mytab->Parent=PageControl1;
 mytab->PageControl=PageControl1;
// mytab->Name="MyTab"; // всё покажем и без name
 mytab->Caption="Тест";

@Best777 · 14.01.2013, 16:30 **[ТС]**

Присваиваю так:

C++
1
tab[np]->Name=AnsiString("Stor")+AnsiString(np);

шас допишу твои строчки...

mimicria · 14.01.2013, 16:38

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

tab[np]->Name=AnsiString("Stor")+AnsiString(np );

Если уж на то пошло, то

C++
1
tab[np]->Name="Stor"+IntToStr(np);

@Best777 · 14.01.2013, 16:53 **[ТС]**

блин! перепутал формы вместо tab[np]->Parent=Form1->PageControl1 написано tab[np]->Parent=Form4->PageControl1
спасибо вам огромное!

Итак следующий вопрос от нуба в ini файлах:
я ище записую результати в файл. пишу так:

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
if (SaveDialog1->Execute()){
TIniFile *Ini = new TIniFile(SaveDialog1->FileName);
 
Ini->WriteInteger("number","number",N);//10 --ê³ëüê³ñòü
 
for(int i=1;i<=N;i++){
 
Ini->WriteString("GroupBox",AnsiString("Parent")+AnsiString(i),KNOPKA[i]->Parent->Name);//ошибка здесь
 
Ini->WriteInteger("GroupBox",AnsiString("Left")+AnsiString(i),KNOPKA[i]->Left);
Ini->WriteInteger("GroupBox",AnsiString("Top")+AnsiString(i),KNOPKA[i]->Top);
Ini->WriteInteger("GroupBox",AnsiString("Height")+AnsiString(i),KNOPKA[i]->Height);
Ini->WriteInteger("GroupBox",AnsiString("Width")+AnsiString(i),KNOPKA[i]->Width);
Ini->WriteString("GroupBox",AnsiString("Caption")+AnsiString(i),KNOPKA[i]->Caption);
Ini->WriteBool("GroupBox",AnsiString("ParentColor")+AnsiString(i),KNOPKA[i]->ParentColor);
Ini->WriteString("GroupBox",AnsiString("Color")+AnsiString(i),KNOPKA[i]->Color);
Ini->WriteString("GroupBox",AnsiString("FontColor")+AnsiString(i),KNOPKA[i]->Font->Color);
Ini->WriteString("GroupBox",AnsiString("Name")+AnsiString(i),KNOPKA[i]->Name);
 
delete KNOPKA[i];
}
delete Ini;
N=1;
Label1->Caption=SaveDialog1->FileName;
}

считую так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
if (OpenDialog1->Execute()){
TIniFile *Ini = new TIniFile(OpenDialog1->FileName);
 
int i=Ini->ReadInteger("number","number",0);
 
   for(int j=1;j<=i;j++){
   KNOPKA[j] = new TGroupBox(Form1);
 
 KNOPKA[j]->Parent->Name=Ini->ReadString("GroupBox",AnsiString("Parent")+AnsiString(j),"Form1");
 
      Edit8->Text=KNOPKA[j]->Parent->Name;
  //KNOPKA[j]->Name=Ini->ReadString("GroupBox",AnsiString("Name")+AnsiString(i),"none");
   //KNOPKA[j]->Left =Ini->ReadInteger("GroupBox",AnsiString("Left")+AnsiString(j),0);
   //KNOPKA[j]->Top = Ini->ReadInteger("GroupBox",AnsiString("Top")+AnsiString(j),0);;
 //  KNOPKA[j]->Caption=Ini->ReadString("GroupBox",AnsiString("Caption")+AnsiString(j),"íå íàéäåíî");;
 //  KNOPKA[j]->ParentColor=Ini->ReadBool("GroupBox",AnsiString("ParentColor")+AnsiString(j),true);
 
   }  } //  }

при записи ini файл виглядит так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
[number]
number=1
[GroupBox]
Parent1=Stor1
Left1=11
Top1=104
Height1=100
Width1=140
Caption1=вв
ParentColor1=0
Color1=255
FontColor1=8388608
Name1=KNOPKA1

вибивает ошибку сообщениям уже при роботе програмы что :

@Best777 · 14.01.2013, 16:56 **[ТС]**

если там где загружает написать статическое parent то работает без ошибки.
может не правильно записал parent или Stor1 оно почему то не видит...
подскажите пожалуйста.

mimicria · 14.01.2013, 16:57

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

for(int j=1;j<=i;j++)

Индексы массива от 1 до 10, а массив как объявлен? Про нумерацию с 0 не забыли?

@Best777 · 14.01.2013, 17:04 **[ТС]**

Stor[i]--так и осталась caption в Tabsheet...

Добавлено через 2 минуты
TGroupBox *KNOPKA[30];
но у меня N стартует при создавании с 1

Добавлено через 4 минуты
ради интереса пробивал считать без цикла. та самая ошибка. значит тепер уже не правильно считую свое названия вкладки как parent KNOPKA[i];

mimicria · 14.01.2013, 17:19

Конечно неправильно. В файл пишется Parent->Name - это только строка с именем.
А при загрузке Component->Parent требует не строку, а полноценный TWinControl

Новые блоги и статьи Все статьи Все блоги /
Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .	Krabik для WoW 3.3.5a, многоязычный AmbA 02.07.2026 Допилил бота, думаю что окончательно. Изменения: - добавлена многоязычность - добавлено снятие скриншотов - добавлено поддержание бафов хождения по воде (для жреца, дк и шамана) - и так, по. . .
Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .

@Best777 2 / 2 / 0 Регистрация: 09.01.2013 Сообщений: 134

	Сохранения результатов программы в файл 09.01.2013, 19:01. Показов 6531. Ответов 58 Метки нет (Все метки) Здраствуйте всем. Создаю программу "Среда для создания экспертных систем" на c++ Builder 6. Вопросы создаются как названия в GroupBox-сах а варианты как CheckButton или RadioButton внутри этих GroupBox-сов. Понятно что они создаются динамически. Нужно чтоб когда нажата кнопка Сохранить все даные сохранялись в файл например txt(Вам знать какой лучше). И после того как программа перезапускалась и нажата кнопка Загрузить все какбы Я думаю пересоздавались у цыкле снова на форму. Как это лучше зделать??? Помогите пожалуйста. Если можно какие та наброски(программы), Или просто на словах с чего начать. Буду очень благодарен. 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	14.01.2013, 15:37
	Caption эквивалентно this->Caption, то бишь это свойство формы в данном случае. У меня XE. Вероятно, глюк билдера какой-то... эти групбоксы хоть появляются на вкладке-то? Еще можешь попробовать создать пустой проект и протестировать это поведение в нем... Добавлено через 3 минуты Где у тебя этот код выполняется? 0

@Best777 2 / 2 / 0 Регистрация: 09.01.2013 Сообщений: 134
	14.01.2013, 16:03 [ТС]
	Через Caption. По любом глюк какой то... 0

@Best777 2 / 2 / 0 Регистрация: 09.01.2013 Сообщений: 134
	14.01.2013, 16:56 [ТС]
	если там где загружает написать статическое parent то работает без ошибки. может не правильно записал parent или Stor1 оно почему то не видит... подскажите пожалуйста. 0

@Best777 2 / 2 / 0 Регистрация: 09.01.2013 Сообщений: 134
	14.01.2013, 17:04 [ТС]
	Stor[i]--так и осталась caption в Tabsheet... Добавлено через 2 минуты TGroupBox KNOPKA[30]; но у меня N стартует при создавании с 1 Добавлено через 4 минуты* ради интереса пробивал считать без цикла. та самая ошибка. значит тепер уже не правильно считую свое названия вкладки как parent KNOPKA[i]; 0

mimicria return (true); 1977 / 1112 / 221 Регистрация: 19.04.2011 Сообщений: 2,346
	14.01.2013, 17:19
	Конечно неправильно. В файл пишется Parent->Name - это только строка с именем. А при загрузке Component->Parent требует не строку, а полноценный TWinControl 0