Как создать фильтр на StringGrid?

@Solara · Регистрация: 19.03.2017

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

У меня есть таблица в оторой первоначально введене первое поле мне к примеру нужна отфильтровать чтоб показолись дание
(Прізвище, Ім'я, По батькові). Или за статю на премер чтоб отображались все мужские записи или женские. Как ето зделать.

@lifeforce · 12.05.2017, 15:12

Solara, ошибки в коде нет.
похоже что сам проект перемешан с кашей.
выложи весь проект здесь.

@Solara · 12.05.2017, 16:27 **[ТС]**

lifeforce,

@lifeforce · 17.05.2017, 12:29

ну вот вернулся из путешествия .
продолжаем

Solara,
так и есть полно граблей.

при старте программы Unit1 FormMain у тебя используется StringGrid1 как основная база (которую можно редактировать)
, и ее нельзя очищать! а у тебя в Unit2 Form2 происходит очищение таблицы

C++
1
2
3
    FormMain->StringGrid1->RowCount=2;
    FormMain->StringGrid1->Row=1;
    FormMain->StringGrid1->Rows[1]->Clear();

типа отработал фильтр и теперь у тебя в таблице несколько строк! и если сохранить сейчас файл то все будет потеряно.
при событии void __fastcall TFormMain::FiltrClick(TObject *Sender)
у тебя создается копия базы. но а если не использовать это событие и сразу создать фильтр? данные все исчезнут.
Я так понял что твоя задумка все в одном окне. но тогда можно пойти по другому пути. не очищать таблицу а просто скрывать строки таблицы при выборе фильтра.

C++
1
2
3
4
5
 if (  условие фильтра)
    {
  StringGrid1->RowHeights[StringGrid1->Row]=-1;
    }
    else  StringGrid1->RowHeights[StringGrid1->Row]= StringGrid1->DefaultRowHeight;

но здесь другие неприятности. скролинг по строкам - если попадается скрытая строка то исчезает фокус. можно попытаться избежать маленькой доработкой. типа

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
  //strgrdS глобальная переменная при старте программы инициализируется strgrdS = StringGrid1->Row;
try
      {
    do
      {
      if(
         strgrdS<=StringGrid1->Row
      &&
         StringGrid1->RowHeights[StringGrid1->Row]<=0
        )
    {
       StringGrid1->Row = StringGrid1->Row+1;
    }
 
    //else
         if (strgrdS>=StringGrid1->Row
      &&
         StringGrid1->RowHeights[StringGrid1->Row]<=0
             )
      {
      StringGrid1->Row = StringGrid1->Row-1;
      }
      }
    while  (StringGrid1->RowHeights[StringGrid1->Row]<=0);
      }
      catch(...)      {}
 if (strgrdS!=StringGrid1->Row) strgrdS = StringGrid1->Row;

вроде срабатывает правильно.
или же если оставить так как есть то тогда сразу после загрузки базы сохранить копию. потом перед редактированием , или записью базы - надо из резервной копии все копировать в основной стринггрид1.

ну а вообще каждый программист перед тем как написать программу , сначала создает блок схему как и что и когда должно происходить и пути решения. и тогда будет программа правильно собрана.

@Solara · 18.05.2017, 22:44 **[ТС]**

lifeforce, незнаю у меня не вышло еслы можете поправте в проекте

@lifeforce · 30.05.2017, 16:40

Solara,
Сегодня было свободное время. состряпал и немного отредактировал код.
главное что здесь теперь работает - сортировка(фильтр) то что и было в теме.
НО! сама программа в хаосе.
зачем дублировать функции удаления , создания и очистки базы?
если использовать одинаковые функции к разным событиям - тогда и обьедени их.
Хаос!
расскажу почему:
1-й раз выбор фильтра создает копию стринггрида основной базы в скрытый стриннгрид.
потом выбрав любой из фильтров (основной стринггрид обнуляется и остается несколько строк соответствующим фильтру)
вот здесь первые грабли - если еще раз нажать на кнопку фильтра , то список фильтра станет меньшим исходя из оставшегося текста в стринггриде основной базы. а скрытый теперь уменьшиться.
и если эту операцию повторить еще то в твоей базе не останется ничего!

при работе фильтра запрещено редактирование, добавление, удаление, и запись базы(и здесь грабли).
для этого тебе надо создать условие при котором если идет работа фильтра и допустим надо ( редактировать, добавить, удалить, или сохранить базу) то скрыть фильтр и восстановить базу из скрытого стринггрида.
недостаток такого метода, сменится список и если была строка выбранная для редактирования то все потеряется.

Внимательно подумай над алгоритмом программы. к примеру нарисуй на бумаге блок схему и реши все возможные пути поведения программы.

вот рабочий фильтр.
здесь я ему добавил условия:
1 - запрещение повторного запуска фильтра если он уже используется.
2 - при выходе из фильтра перезапись(восстановление базы) из скрытого стринггрида.
вот типа такго и тебе надо придумать с записью, редактированием, добавление новой записи, удаление записи.

Добавлено через 4 минуты
это код для FormMain

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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMain *FormMain;
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
    : TForm(Owner)
{
StringGrid1->RowCount = 2;
StringGrid1->Cells[0][0]="№";
StringGrid1->Cells[0][1]="1";
StringGrid1->Cells[1][0]="Прізвище";
StringGrid1->Cells[2][0]="Ім'я";
StringGrid1->Cells[3][0]="По батькові";
StringGrid1->Cells[4][0]="Стать";
StringGrid1->Cells[5][0]="Дата народження";
StringGrid1->Cells[6][0]="Адрес";
StringGrid1->Cells[7][0]="№ телефону";
}
//---------------------------------------------------------------------------
////Відкриття форми введення даних
void __fastcall TFormMain::CreateTClick(TObject *Sender)
{
 Form3->Visible= true;
}
//---------------------------------------------------------------------------
 
//Редагування таблиці// Видалення виділеного рядка
void __fastcall TFormMain::DeleteOneNClick(TObject *Sender)
{
int Index = StringGrid1->Selection.Top;
if(Index != StringGrid1->RowCount-1) // Вилалення при виборі рядка
  {
  for(int i=Index; i<StringGrid1->RowCount-1; i++)
    StringGrid1->Rows[i] = StringGrid1->Rows[i+1];
  StringGrid1->RowCount--; // Видалення останього рядка
  }
}
//---------------------------------------------------------------------------
//Оголошення ClearTable для очищення таблмці
void ClearTable (TStringGrid *StringGrid1)
{
 if (MessageDlg("Ви впевнені що хочете очистити всю таблицю?",
 mtConfirmation , TMsgDlgButtons() << mbOK << mbCancel, 0)==mrOk)
 {
 for (int i=1;i<StringGrid1->RowCount; i++)
 StringGrid1->Rows[i]->Clear();
 StringGrid1->RowCount=2;
 StringGrid1->Row=1;
 StringGrid1->SetFocus();
 }
}
//Очищення талиці починаючи з 1 рядка
void __fastcall TFormMain::DeleteNClick(TObject *Sender)
{
 ClearTable(StringGrid1);
}
//---------------------------------------------------------------------------
//Додавання 1-го рядка до таблиці
void __fastcall TFormMain::AddOneClick(TObject *Sender)
{
  if(StringGrid1->Cells[0][StringGrid1->RowCount-1]!="")
  StringGrid1->RowCount = StringGrid1->RowCount + 1;
  // очистить от остатков
  StringGrid1->Rows[StringGrid1->RowCount-1]->Clear();
  StringGrid1->Cells[0][StringGrid1->RowCount-1]=StringGrid1->RowCount-1;
}
//---------------------------------------------------------------------------
//Очищення виділеного рядка
void __fastcall TFormMain::DeleteOneClick(TObject *Sender)
{
//int Index = StringGrid1->Selection.Top;
int Index = StringGrid1->Row;
  // очистить от остатков
  StringGrid1->Rows[StringGrid1->Row]->Clear();
  // Вилалення при виборі рядка
  if( Index != StringGrid1->RowCount
   &&
     (Index != 1 || Index != StringGrid1->RowCount-1)
    )
  {
  for(int i=Index; i<StringGrid1->RowCount-1; i++)
  {
  StringGrid1->Rows[i] = StringGrid1->Rows[i+1];
  StringGrid1->Cells[0][i]=i;
  }
 
  StringGrid1->RowCount--; // Видалення останього рядка
  }
}
//---------------------------------------------------------------------------
//Очищення талиці починаючи з 1 рядка
void __fastcall TFormMain::DeleteClick(TObject *Sender)
{
 ClearTable(StringGrid1);
}
//---------------------------------------------------------------------------
//Закриття форми
void __fastcall TFormMain::CloseNClick(TObject *Sender)
{
 FormMain->Close();
}
//---------------------------------------------------------------------------
//Збереження в файл
void __fastcall TFormMain::SaveClick(TObject *Sender)
{
       TStringList *tsl=new TStringList;
      tsl->Add(IntToStr(StringGrid1->RowCount));
      tsl->Add(IntToStr(StringGrid1->ColCount));
      for(int i=0;i<StringGrid1->RowCount;i++)
        {
        tsl->AddStrings(StringGrid1->Rows[i]);
        }
     SaveDialog1->Execute();
     tsl->SaveToFile((SaveDialog1->FileName)+".xls");
     tsl=NULL;
     delete tsl;
 
}
//---------------------------------------------------------------------------
//Створення контакту
void __fastcall TFormMain::StringGrid1DblClick(TObject *Sender)
{
Form3->Visible= true;   
}
//---------------------------------------------------------------------------
//Пошук через діалогове вікно
void __fastcall TFormMain::SearchNClick(TObject *Sender)
{
String Value = ""; // змінна для збереження запиту
    if(InputQuery(L"Пошук", L"Найти: ", Value)) { // діалог пошуку
        if(Value == "") // якщо запит пустий
            ShowMessage("Ви нічого не ввели");
        else {
            for(int i = 0; i<StringGrid1->ColCount; i++) { // цикл пошуку
                for(int j = 0; j<StringGrid1->RowCount; j++) {
                    if(StringGrid1->Cells[i][j] == Value) {
                        StringGrid1->Canvas->Brush->Color = clGreen;
                        // відображення знайдених результатів пошуку
                        StringGrid1->Canvas->FrameRect(StringGrid1->CellRect(i, j));
                    }
                }
            }
        }
    }
// увімкнення видимості кнопки "Очистити результати пошуку"
MainMenu1->Items[0][0]->Visible = true;
}
//---------------------------------------------------------------------------
//Відкриття бази з файлу
void __fastcall TFormMain::OpenClick(TObject *Sender)
{
        TStringList *tsl=new TStringList;
        if(OpenDialog1->Execute())
      tsl->LoadFromFile((OpenDialog1->FileName));
      StringGrid1->RowCount=StrToInt(tsl->Strings[0]);
      StringGrid1->ColCount=StrToInt(tsl->Strings[1]);
      int k=2;
      for(int i=0;i<StringGrid1->RowCount;i++)
         {for(int j=0;j<StringGrid1->ColCount;j++)
   {
         StringGrid1->Cells[j][i]=tsl->Strings[k];
   k++;} }
delete tsl; 
}
//---------------------------------------------------------------------------
//Фільтрація даних
void __fastcall TFormMain::FiltrClick(TObject *Sender)
{
 if(Form2->Visible==true)return;// если фильтр используется запретить повторный запуск
 
 Form2->Visible=true;
TStringList *data = new TStringList;// дата выполнения
    SGZ->RowCount = StringGrid1->RowCount;
    SGZ->ColCount = StringGrid1->ColCount;
    for (int i = 0; i < StringGrid1->RowCount; i++)
    {
      SGZ->Rows[i]=StringGrid1->Rows[i];
    }
 for (int i = 1; i < StringGrid1->RowCount; i++)// основная база на
 {
 if(( data->IndexOf(data->Text.SubString(data->Text.Pos(StringGrid1->Cells[5][i]),StringGrid1->Cells[5][i].Length())))<0)
              {
                data->Add(StringGrid1->Cells[5][i]);// дата выполнения
              }
   else
   if(data->Strings[data->IndexOf(data->Text.SubString(data->Text.Pos(StringGrid1->Cells[5][i]),StringGrid1->Cells[5][i].Length()))]
   != StringGrid1->Cells[5][i])
     {
      data->Add(StringGrid1->Cells[5][i]);// дата выполнения
     }
 }
    data->Sort(); // сортирую список
    Form2->CheckListBox1->Items->Text = data->Text;// дата выполнения
    //data->Insert(0,"Показать все");// дата выполнения
    delete data;
TStringList *text = new TStringList;// дата выполнения
 for (int i = 1; i < StringGrid1->RowCount; i++)// основная база на
 {
 if(( text->IndexOf(text->Text.SubString(text->Text.Pos(StringGrid1->Cells[1][i]),StringGrid1->Cells[1][i].Length())))<0)
              {
                text->Add(StringGrid1->Cells[1][i]);// дата выполнения
              }
   else
   if(text->Strings[text->IndexOf(text->Text.SubString(text->Text.Pos(StringGrid1->Cells[1][i]),StringGrid1->Cells[1][i].Length()))]
   != StringGrid1->Cells[1][i])
     {
      text->Add(StringGrid1->Cells[1][i]);// дата выполнения
     }
 }
    text->Sort(); // сортирую список
    Form2->CheckListBox5->Items->Text = text->Text;// дата выполнения
    //text->Insert(0,"Показать все");// дата выполнения
    delete text;
TStringList *sta = new TStringList;// дата выполнения
 for (int i = 1; i < StringGrid1->RowCount; i++)// основная база на
 {
 if(( sta->IndexOf(sta->Text.SubString(sta->Text.Pos(StringGrid1->Cells[4][i]),StringGrid1->Cells[4][i].Length())))<0)
              {
                sta->Add(StringGrid1->Cells[4][i]);// дата выполнения
              }
   else
   if(sta->Strings[sta->IndexOf(sta->Text.SubString(sta->Text.Pos(StringGrid1->Cells[4][i]),StringGrid1->Cells[4][i].Length()))]
   != StringGrid1->Cells[4][i])
     {
      sta->Add(StringGrid1->Cells[4][i]);// дата выполнения
     }
 }
  sta->Sort(); // сортирую список
    Form2->CheckListBox2->Items->Text = sta->Text;// дата выполнения
    //data->Insert(0,"Показать все");// дата выполнения
    delete sta;
TStringList *name = new TStringList;// дата выполнения
 for (int i = 1; i < StringGrid1->RowCount; i++)// основная база на
 {
 if(( name->IndexOf(name->Text.SubString(name->Text.Pos(StringGrid1->Cells[2][i]),StringGrid1->Cells[2][i].Length())))<0)
              {
                name->Add(StringGrid1->Cells[2][i]);// дата выполнения
              }
   else
   if(name->Strings[name->IndexOf(name->Text.SubString(name->Text.Pos(StringGrid1->Cells[2][i]),StringGrid1->Cells[2][i].Length()))]
   != StringGrid1->Cells[2][i]){
      name->Add(StringGrid1->Cells[2][i]);// дата выполнения
     }
 }
    name->Sort(); // сортирую список
    Form2->CheckListBox4->Items->Text = name->Text;// дата выполнения
    //name->Insert(0,"Показать все");// дата выполнения
    delete name;
TStringList *lname = new TStringList;// дата выполнения
 for (int i = 1; i < StringGrid1->RowCount; i++)// основная база на
 {
 if(( lname->IndexOf(lname->Text.SubString(lname->Text.Pos(StringGrid1->Cells[3][i]),StringGrid1->Cells[3][i].Length())))<0)
              {
                lname->Add(StringGrid1->Cells[3][i]);// дата выполнения
              }
   else
   if(lname->Strings[lname->IndexOf(lname->Text.SubString(lname->Text.Pos(StringGrid1->Cells[3][i]),StringGrid1->Cells[3][i].Length()))]
   != StringGrid1->Cells[3][i]){
      text->Add(StringGrid1->Cells[3][i]);// дата выполнения
     }
 }
    text->Sort(); // сортирую список
    Form2->CheckListBox3->Items->Text = text->Text;// дата выполнения
    //text->Insert(0,"Показать все");// дата выполнения
    delete lname;
TStringList *adrs = new TStringList;
 for (int i = 1; i < StringGrid1->RowCount; i++)// основная база на
 {
 if(( adrs->IndexOf(adrs->Text.SubString(adrs->Text.Pos(StringGrid1->Cells[6][i]),StringGrid1->Cells[6][i].Length())))<0)
              {
                adrs->Add(StringGrid1->Cells[6][i]);// дата выполнения
              }
   else
   if(adrs->Strings[adrs->IndexOf(adrs->Text.SubString(adrs->Text.Pos(StringGrid1->Cells[6][i]),StringGrid1->Cells[6][i].Length()))]
   != StringGrid1->Cells[6][i]){
      adrs->Add(StringGrid1->Cells[6][i]);// дата выполнения
     }
 }
    adrs->Sort(); // сортирую список
    Form2->CheckListBox6->Items->Text = sta->Text;// дата выполнения
    //adrs->Insert(0,"Показать все");// дата выполнения
    delete adrs;
TStringList *nomt = new TStringList;// дата выполнения
 for (int i = 1; i < StringGrid1->RowCount; i++)// основная база на
 {
 if(( nomt->IndexOf(nomt->Text.SubString(nomt->Text.Pos(StringGrid1->Cells[7][i]),StringGrid1->Cells[7][i].Length())))<0)
              {
                nomt->Add(StringGrid1->Cells[7][i]);// дата выполнения
              }
   else
   if(nomt->Strings[nomt->IndexOf(nomt->Text.SubString(nomt->Text.Pos(StringGrid1->Cells[7][i]),StringGrid1->Cells[7][i].Length()))]
   != StringGrid1->Cells[7][i]){
      nomt->Add(StringGrid1->Cells[7][i]);// дата выполнения
     }
 }
    nomt->Sort(); // сортирую список
    Form2->CheckListBox7->Items->Text = nomt->Text;// дата выполнения
    //nomt->Insert(0,"Показать все");// дата выполнения
    delete nomt;    
}
//---------------------------------------------------------------------------
 
void __fastcall TFormMain::SearchClick(TObject *Sender)
{
//UnicodeString Value = ""; // змінна для збереження запиту
int col = -1, row = -1;
    for (; row < StringGrid1->RowCount && col < 1;)
        col = StringGrid1->Rows[++row]->IndexOf(Edit1->Text);
    if (col >= 1)
    {
        StringGrid1->Row = row;
        StringGrid1->Col = col;
        StringGrid1->SetFocus();
        ShowMessage(L"Знайдено");
    }
    else
        ShowMessage(L"Не знайдено");  
}
//---------------------------------------------------------------------------

@lifeforce · 30.05.2017, 16:47

а вот код для второй формы.
внимание.
здесь для всех чекбоксов я создал событие CheckListBoxClick (т.е. все чекбоксы события имеют одно и тоже событие ).

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::CheckListBoxClick(TObject *Sender)
{
TStringList *data = new TStringList;//Дата народження
TStringList *text = new TStringList;//Прізвище
TStringList *name = new TStringList;//Ім'я
TStringList *lname = new TStringList;//По батькові
TStringList *sta = new TStringList;//Стать
TStringList *adrs = new TStringList;//Адрес
TStringList *nomt = new TStringList;//№ телефону
 
 
    FormMain->StringGrid1->RowCount=2;
    FormMain->StringGrid1->Row=1;
    FormMain->StringGrid1->Rows[1]->Clear();
    bool art=false;
    int n=1;
 
    for (int ck= 0; ck < CheckListBox1->Count; ck++)
    {
 if (CheckListBox1->Checked [ck] == true)
    data->Add(CheckListBox1->Items->Strings[ck]);//Дата народження // состовляю список
    }
    for (int ck= 0; ck < CheckListBox5->Count; ck++)
    {
 if (CheckListBox5->Checked [ck] == true)
    text->Add(CheckListBox5->Items->Strings[ck]);//Прізвище// состовляю список
    }
    for (int ck= 0; ck < CheckListBox4->Count; ck++)
    {
 if (CheckListBox4->Checked [ck] == true)
    name->Add(CheckListBox4->Items->Strings[ck]);//Ім'я // состовляю список
    }
    for (int ck= 0; ck < CheckListBox3->Count; ck++)
    {
 if (CheckListBox3->Checked [ck] == true)
    lname->Add(CheckListBox3->Items->Strings[ck]);//По батькові// состовляю список
    }
    for (int ck= 0; ck < CheckListBox2->Count; ck++)
    {
 if (CheckListBox2->Checked [ck] == true)
    sta->Add(CheckListBox2->Items->Strings[ck]);//Стать // состовляю список
    }
    for (int ck= 0; ck < CheckListBox6->Count; ck++)
    {
 if (CheckListBox6->Checked [ck] == true)
    adrs->Add(CheckListBox6->Items->Strings[ck]);//Адрес // состовляю список
    }
    for (int ck= 0; ck < CheckListBox7->Count; ck++)
    {
 if (CheckListBox7->Checked [ck] == true)
    nomt->Add(CheckListBox7->Items->Strings[ck]);//№ телефону // состовляю список
    }
 
  for (int i = 1; i < FormMain->SGZ->RowCount; i++)
  {
   if ( (FormMain->SGZ->Cells[5][i] == data->Text.SubString(data->Text.Pos(FormMain->SGZ->Cells[5][i]),FormMain->SGZ->Cells[5][i].Length())||data->Text=="")//Дата народження
     && (data->IndexOf(data->Text.SubString(data->Text.Pos(FormMain->SGZ->Cells[5][i]),FormMain->SGZ->Cells[5][i].Length())) >=0 ||data->Text=="")//Дата народження
     && (FormMain->SGZ->Cells[1][i] == text->Text.SubString(text->Text.Pos(FormMain->SGZ->Cells[1][i]),FormMain->SGZ->Cells[1][i].Length())||text->Text=="")//Прізвище
     && (text->IndexOf(text->Text.SubString(text->Text.Pos(FormMain->SGZ->Cells[1][i]),FormMain->SGZ->Cells[1][i].Length())) >=0 ||text->Text=="")//Прізвище
     && (FormMain->SGZ->Cells[2][i] == name->Text.SubString(name->Text.Pos(FormMain->SGZ->Cells[2][i]),FormMain->SGZ->Cells[2][i].Length())||name->Text=="")//Ім'я
     && (name->IndexOf(name->Text.SubString(name->Text.Pos(FormMain->SGZ->Cells[2][i]),FormMain->SGZ->Cells[2][i].Length())) >=0 ||name->Text=="")//Ім'я
     && (FormMain->SGZ->Cells[3][i] == lname->Text.SubString(lname->Text.Pos(FormMain->SGZ->Cells[3][i]),FormMain->SGZ->Cells[3][i].Length())||lname->Text=="")//По батькові
     && (lname->IndexOf(lname->Text.SubString(lname->Text.Pos(FormMain->SGZ->Cells[3][i]),FormMain->SGZ->Cells[3][i].Length())) >=0 ||lname->Text=="")//По батькові
     && (FormMain->SGZ->Cells[4][i] == sta->Text.SubString(sta->Text.Pos(FormMain->SGZ->Cells[4][i]),FormMain->SGZ->Cells[4][i].Length())||sta->Text=="")//Стать
     && (sta->IndexOf(sta->Text.SubString(sta->Text.Pos(FormMain->SGZ->Cells[4][i]),FormMain->SGZ->Cells[4][i].Length())) >=0 ||sta->Text=="")//Стать
     && (FormMain->SGZ->Cells[6][i] == adrs->Text.SubString(adrs->Text.Pos(FormMain->SGZ->Cells[6][i]),FormMain->SGZ->Cells[6][i].Length())||adrs->Text=="")//Адрес
     && (adrs->IndexOf(adrs->Text.SubString(adrs->Text.Pos(FormMain->SGZ->Cells[6][i]),FormMain->SGZ->Cells[6][i].Length())) >=0 ||adrs->Text=="")//Адрес
     && (FormMain->SGZ->Cells[7][i] == nomt->Text.SubString(nomt->Text.Pos(FormMain->SGZ->Cells[7][i]),FormMain->SGZ->Cells[7][i].Length())||nomt->Text=="")//№ телефону
     && (nomt->IndexOf(nomt->Text.SubString(nomt->Text.Pos(FormMain->SGZ->Cells[7][i]),FormMain->SGZ->Cells[7][i].Length())) >=0 ||nomt->Text=="")//№ телефону
      )
   {
    if (art==true)
    FormMain->StringGrid1->RowCount = FormMain->StringGrid1->RowCount+1;
    FormMain->StringGrid1->Rows [FormMain->StringGrid1->RowCount-1]=FormMain->SGZ->Rows[i];
    FormMain->StringGrid1->Cells[0][FormMain->StringGrid1->RowCount-1]= IntToStr(n);
    art=true;
    n++;
   }
 
  }
    delete data;
    delete text;
    delete name;
    delete lname;
    delete sta;
    delete adrs;
    delete nomt;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCloseQuery(TObject *Sender, bool &CanClose)
{   // восстановление базы при выходе из фильтра
     FormMain->StringGrid1->RowCount = FormMain->SGZ->RowCount;
     FormMain->StringGrid1->ColCount = FormMain->SGZ->ColCount;
    for (int i = 0; i < FormMain->SGZ->RowCount; i++)
    {
      FormMain->StringGrid1->Rows[i] = FormMain->SGZ->Rows[i];
    }
}
//---------------------------------------------------------------------------

@lifeforce · 30.05.2017, 16:56

Берлин установить на диск F (400 Ggb свободно) не удалось - пишет что нет места?
исходник и работа фильтра.

Новые блоги и статьи Все статьи Все блоги /
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .
Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .

@Solara 0 / 0 / 0 Регистрация: 19.03.2017 Сообщений: 39

	Как создать фильтр на StringGrid? 20.04.2017, 16:41. Показов 7167. Ответов 46 Метки нет (Все метки) У меня есть таблица в оторой первоначально введене первое поле мне к примеру нужна отфильтровать чтоб показолись дание (Прізвище, Ім'я, По батькові). Или за статю на премер чтоб отображались все мужские записи или женские. Как ето зделать. Миниатюры 0

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	12.05.2017, 15:12
	Solara, ошибки в коде нет. похоже что сам проект перемешан с кашей. выложи весь проект здесь. 0

@Solara 0 / 0 / 0 Регистрация: 19.03.2017 Сообщений: 39
	18.05.2017, 22:44 [ТС]
	lifeforce, незнаю у меня не вышло еслы можете поправте в проекте 0