Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 07.10.2014
Сообщений: 62

Удаление строки из TIniFile

15.05.2015, 23:16. Показов 938. Ответов 7
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Написал программу, которая представляет из себя базу данных студентов.
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
      TMemIniFile *mIni ;
      TStringList *list ;
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   AnsiString tabl[6] ={ "Номер","Вид спорта","ФИО","Возраст","Дата","Описание рекорда" };
   list = new TStringList;
   mIni = new TMemIniFile(".\\project.dat");
 
   for (int i=0;i<6;i++) StringGrid1->Cells[i][0]=tabl[i];
   Label1->Caption = tabl[0]; Label2->Caption = tabl[1];
   Label3->Caption = tabl[2]; Label4->Caption = tabl[3];
   Label5->Caption = tabl[4]; Label6->Caption = tabl[5];
 
   SpeedButton1Click(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit8Change(TObject *Sender)
{
    SpeedButton1->Enabled = Edit8->Text.ToIntDef(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit7Change(TObject *Sender)
{
    SpeedButton2->Enabled = Edit7->Text.ToIntDef(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
    Button1->Enabled = Edit1->Text.ToIntDef(0);
    Button2->Enabled = Edit1->Text.ToIntDef(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
#define sss StringGrid1->Cells
      mIni->ReadSections(list) ;
      list->Insert(0," ") ;
      StringGrid1->RowCount = list->Count>StringGrid1->RowCount ? list->Count+1:30;
      int t=1;
      int par8 = Edit8->Text.ToIntDef(0);
      int par7 = Edit7->Text.ToIntDef(0);
      bool enab1,enab2;
      for (int i=1;i<list->Count;i++)  {
        if (SpeedButton1->Down) enab1=
            (par8==mIni->ReadInteger(list->Strings[i],"ВОЗРАСТ",0));
        else enab1 = true;
         if (SpeedButton2->Down) enab2=
          (par7==mIni->ReadInteger(list->Strings[i],"ДАТА",0));
        else enab2 = true;
        if (enab1 && enab2)
        {
          sss[0][t]=list->Strings[i];
          sss[1][t]=mIni->ReadString(list->Strings[i],"СПОРТ","");
          sss[2][t]=mIni->ReadString(list->Strings[i],"ФИО","");
          sss[3][t]=mIni->ReadInteger(list->Strings[i],"ВОЗРАСТ",0);
          sss[4][t]=mIni->ReadInteger(list->Strings[i],"ДАТА",0);
          sss[5][t]=mIni->ReadString(list->Strings[i],"ОПИСАНИЕ","");
          t+=1;
        }
        for (int k=t;k<StringGrid1->RowCount;k++)
          StringGrid1->Rows[k]->Clear();
      }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     if (mIni)
   {
       mIni->WriteString(Edit1->Text,"СПОРТ",Edit2->Text);
       mIni->WriteString(Edit1->Text,"ФИО",Edit3->Text);
       mIni->WriteInteger(Edit1->Text,"ВОЗРАСТ",Edit4->Text.ToIntDef(0));
       mIni->WriteInteger(Edit1->Text,"ДАТА",Edit5->Text.ToIntDef(0));
       mIni->WriteString(Edit1->Text,"ОПИСАНИЕ",Edit6->Text);
       Edit1->Text=""; Edit2->Text=""; Edit3->Text="";
       Edit4->Text=""; Edit5->Text=""; Edit5->Text=""; Edit6->Text="";
       mIni->UpdateFile();
       SpeedButton1Click(0);
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 if (mIni)
   {
       mIni->WriteString(Edit1->Text,"СПОРТ","");
       mIni->WriteString(Edit1->Text,"ФИО","");
       mIni->WriteString(Edit1->Text,"ВОЗРАСТ","");
       mIni->WriteString(Edit1->Text,"ДАТА","");
       mIni->WriteString(Edit1->Text,"ОПИСАНИЕ","");
       Edit1->Text=""; Edit2->Text=""; Edit3->Text="";
       Edit4->Text=""; Edit5->Text=""; Edit5->Text=""; Edit6->Text="";
       mIni->UpdateFile();
       SpeedButton1Click(0);
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol, int ARow, bool &CanSelect)
{
      Edit1->Text = StringGrid1->Cells[0][ARow];
      Edit2->Text = StringGrid1->Cells[1][ARow];
      Edit3->Text = StringGrid1->Cells[2][ARow];
      Edit4->Text = StringGrid1->Cells[3][ARow].ToIntDef(0);
      Edit5->Text = StringGrid1->Cells[4][ARow].ToIntDef(0);
      Edit6->Text = StringGrid1->Cells[5][ARow];
}
//---------------------------------------------------------------------------
Нужно переделать ее так, чтобы при удаление удалялась вся строка, но на данный момент этого сделать не удалось, номер остается, числовые данные становятся нулями, а текстовые перезаписываются пустыми строками.


Вот часть кода отвечающая за удаление
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 if (mIni)
   {
       mIni->WriteString(Edit1->Text,"СПОРТ","");
       mIni->WriteString(Edit1->Text,"ФИО","");
       mIni->WriteString(Edit1->Text,"ВОЗРАСТ","");
       mIni->WriteString(Edit1->Text,"ДАТА","");
       mIni->WriteString(Edit1->Text,"ОПИСАНИЕ","");
       Edit1->Text=""; Edit2->Text=""; Edit3->Text="";
       Edit4->Text=""; Edit5->Text=""; Edit5->Text=""; Edit6->Text="";
       mIni->UpdateFile();
       SpeedButton1Click(0);
   }
}
Поискав я не смог найти ничего вроде
C++
1

mIni->DeleteString
, поэтому прошу вашей помощи.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 15.05.2015, 23:16
Ответы с готовыми решениями:

Максимальная длина строки TMemo/TRichEdit/TIniFile
Ребят, помогите, пожалуйста, понять в чем проблема. На форме: Memo и Button. На клик прописано следующее: #include...

Как наследоваться от класса TIniFile?
class TFile : public TIniFile { void _fastcall SaveToFile(UnicodeString Path, TFL *L); void __fastcall LoadFromFile(UnicodeString...

TIniFile - не смог найти такой компонент
Не смог найти компонент TIniFile. Попробовал создать динамически, но билдер пишет Undeifined symbol 'TIniFile'. В чём может быть проблема? ...

7
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33394 / 21504 / 8236
Регистрация: 22.10.2011
Сообщений: 36,900
Записей в блоге: 12
15.05.2015, 23:20
Используй DeleteKey
0
0 / 0 / 0
Регистрация: 07.10.2014
Сообщений: 62
21.05.2015, 04:35  [ТС]
Можете пояснить на моем примере, как это осуществить?
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
21.05.2015, 08:18
C++
1

mIni->DeleteKey("MySection", "MyKey"); //секцию и параметр выпираешь сам
0
0 / 0 / 0
Регистрация: 07.10.2014
Сообщений: 62
27.05.2015, 20:20  [ТС]
То что вы написали, я итак понимаю, в этом нет ничего сложного, проблема заключалась в секции и параметре.
Надеюсь кто-то подскажет, как использовать функцию в данной программе.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33394 / 21504 / 8236
Регистрация: 22.10.2011
Сообщений: 36,900
Записей в блоге: 12
27.05.2015, 21:29
Цитата Сообщение от andrewromanov Посмотреть сообщение
проблема заключалась в секции и параметре
Что тебе непонятно? Какой параметр из какой секции надо удалить - скажи, тебе подскажут, как вызвать этот метод. А то "хочу то, не знаю, что - догадайтесь, что именно я хочу" получается...
0
0 / 0 / 0
Регистрация: 07.10.2014
Сообщений: 62
27.05.2015, 23:14  [ТС]
Я ведь написал что "Надеюсь кто-то подскажет, как использовать функцию в данной программе."
0
Модератор
 Аватар для D1973
9921 / 6457 / 2457
Регистрация: 21.01.2014
Сообщений: 27,399
Записей в блоге: 3
28.05.2015, 06:15
Цитата Сообщение от andrewromanov Посмотреть сообщение
То что вы написали, я итак понимаю, в этом нет ничего сложного
А что сложного в этом?
C++
1
2
3
4
5

mIni->DeleteKey(Edit1->Text, "СПОРТ");
mIni->DeleteKey(Edit1->Text, "ФИО");
mIni->DeleteKey(Edit1->Text, "ВОЗРАСТ");
mIni->DeleteKey(Edit1->Text, "ДАТА");
mIni->DeleteKey(Edit1->Text, "ОПИСАНИЕ");
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 28.05.2015, 06:15
Помогаю со студенческими работами здесь

Access violation при использовании экземпляра TIniFile
есть кнопка, в код нажатия на которую я пару дней назад.сегодня добавил ещё вот это AnsiString...

Замена tinifile на бд
На данный момент имеется система авторизации, которая хранит учётные записи пользователей, их логи и персональные настройки в ini файлах....

Компонент на базе TINIFIle - NSSettings
Предлагаю сообществу простенький но удобный компонент. Все знают что такое TINIFile и все его прелести. Но также все знают, что в...

inifile:=Tinifile.Create(extractFilePath(application.ExeName)+'docs.ini');
Здравствуйте, не могу понять, что делает эта функция, вроде бы должна создавать .ini файл в папке с проектом, но при запуске там ничего нет...

TiniFile пытаюсь создать удаленное подключение к базе, ITable1 false
При компиляции table1 неактивна и никаких записей procedure TForm1.FormClick(Sender: TObject); var FiniFile: TIniFile; begin ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
 SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru