Как создать фильтр на 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 свободно) не удалось - пишет что нет места?
исходник и работа фильтра.

Новые блоги и статьи Все статьи Все блоги /
сукцессия 4 anaschu 25.06.2026 Более детализированный план разработки План доработки модели динамики микоризных симбиозов (EcM с гистерезисом) Цель: Реализовать логику переключения между эрикоидным (ErM) и эктомикоризным. . .	сукцессия 3 anaschu 25.06.2026 Примерный план работ по модели	сукцессия 2 anaschu 25.06.2026 параметризировочная калибровочная таблица будущей модели	Многофункциональное здание: как одно здание порождает конфликты требований, которые никто не планировал (мат мет мод 29) anaschu 23.06.2026 Многофункциональное здание: как одно здание порождает конфликты требований, которые никто не планировал Материалы для обсуждения с МГСУ · 2026 Рисунки внутри приложенного ворд файла. Что за. . .
28. Конкретное развертывание плана номер 1 из поста номер 27 anaschu 22.06.2026 Можно ли из модели получить конкретные строительные требования? Честно — напрямую из текущей модели такие ответы не получить. Но цепочка логики есть, и она не такая длинная. Где разрыв . . .	27. Планы на разработку функциональных требований к строительству внутри модели пищеблока (или не только его?) anaschu 22.06.2026 Что уже реализовано и даёт конфликты «бесплатно» Самый простой конфликт уже работает — конфликт за ресурс-работника. Заданий больше, чем доступных поваров → очередь в queue1. Это прямое отражение. . .	26. мед мат модель.Какие типы конфликтов функциональных требований можно рассчитать через ДЕС-моделирование (СМО) в AnyLogic? anaschu 22.06.2026 Что ДЕС/ СМО умеет считать напрямую: Конфликты за ресурсы (очереди, узкие места). Несколько типов агентов (повара, учителя, рабочие, пациенты) претендуют на один ресурс (лифт, вход, коридор,. . .	25 модель здравосохранения и функциональных требований к пищеблоку: конфликты функциональных требований. anaschu 22.06.2026 Есть ли данные о том, какие функциональные/ эксплуатационные требования или их сочетания труднее всего учитывать при проектировании зданий? Да, такие данные есть, и они хорошо описаны и в российской,. . .

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

	Как создать фильтр на StringGrid? 20.04.2017, 16:41. Показов 7064. Ответов 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