Поиск по StringGrid (с возможностью нахождения нескольких значений)

@softonet · Регистрация: 17.04.2011

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

Есть код

C++
1
2
3
4
5
6
7
8
9
10
11
              /* ПОИСК  */
  int stolbec, stroka;
     for (int i=0; i<StringGrid1->ColCount; i++)
       if ((stroka=StringGrid1->Cols[i]->IndexOf(Edit1->Text)) >= 0)
         { stolbec = i; break; }
   TGridRect myRect;
     myRect.Left = StringGrid1->FixedCols;
           myRect.Top = stroka;
     myRect.Right = StringGrid1->ColCount;
           myRect.Bottom = stroka;
StringGrid1->Selection = myRect;

как сделать типо далее, допустим он нашел число 10, а при нажатии кнопки далее он ищет дальше число 10

@Kille1r · 18.05.2013, 22:41

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
AnsiString SE = SearchEdit->Text;
int TR = StringGrid1->TopRow;
for(int i=TR+1;i<StringGrid1->RowCount;i++)  // i = TR+1;
    {
        if(StringGrid1->Cells[0][i].Pos(SE))
            {
            StringGrid1->TopRow = i;
            return;
            }
    }
 
for(int i=1;i<StringGrid1->RowCount;i++)       // i = 1
    {
        if(StringGrid1->Cells[0][i].Pos(SE))
            {
            StringGrid1->TopRow = i;
            return;
            }
    }

У меня так. Конечно не лучший вариант(не найдет если буква с большой или маленькой и т.д.) но работает

@softonet · 19.05.2013, 13:59 **[ТС]**

не помогло)

@volvo · 19.05.2013, 14:36

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

а при нажатии кнопки далее он ищет дальше число 10

Сделай так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
int stolbec = -1;
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int stroka;
    for (int i=stolbec + 1; i<StringGrid1->ColCount; i++)
        if ((stroka=StringGrid1->Cols[i]->IndexOf(Edit1->Text)) >= 0)
        {
            stolbec = i; break;
        }
    TGridRect myRect;
    myRect.Left = StringGrid1->FixedCols;
    myRect.Top = stroka;
    myRect.Right = StringGrid1->ColCount;
    myRect.Bottom = stroka;
    StringGrid1->Selection = myRect;
}

@softonet · 19.05.2013, 16:12 **[ТС]**

не помогло при повторном нажатии на кнопку дальше не ищет

@volvo · 19.05.2013, 16:40

Почему у меня - ищет, а у тебя - нет? Может, переменная stolbec описана не там где нужно? Либо глобально, либо в классе формы надо ее описать.

@softonet · 19.05.2013, 16:57 **[ТС]**

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

Почему у меня - ищет, а у тебя - нет? Может, переменная stolbec описана не там где нужно? Либо глобально, либо в классе формы надо ее описать.

может быть не там))
вот что выдаёт при повторном нажатии

@volvo · 19.05.2013, 17:13

Ничего подобного у себя не вижу:

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

@softonet · 19.05.2013, 19:02 **[ТС]**

кнопка поиска

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
//---------------------------------------------------------------------------
  int stolbec = -1;
void __fastcall TForm1::Button8Click(TObject *Sender)
{
      /* ПОИСК  */
 
  int stroka;
    for (int i=stolbec + 1; i<StringGrid1->ColCount; i++)
        if ((stroka=StringGrid1->Cols[i]->IndexOf(Edit1->Text)) >= 0)
        {
            stolbec = i; break;
        }
    TGridRect myRect;
    myRect.Left = StringGrid1->FixedCols;
    myRect.Top = stroka;
    myRect.Right = StringGrid1->ColCount;
    myRect.Bottom = stroka;
    StringGrid1->Selection = myRect;
 
LabeledEdit1->Text=StringGrid1->Cells[0][StringGrid1->Row];
LabeledEdit2->Text=StringGrid1->Cells[1][StringGrid1->Row];
LabeledEdit3->Text=StringGrid1->Cells[2][StringGrid1->Row];
LabeledEdit4->Text=StringGrid1->Cells[3][StringGrid1->Row];
LabeledEdit5->Text=StringGrid1->Cells[4][StringGrid1->Row];
LabeledEdit6->Text=StringGrid1->Cells[5][StringGrid1->Row];
 
}
//---------------------------------------------------------------------------

Добавлено через 1 час 43 минуты
up

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@softonet 32 / 32 / 8 Регистрация: 17.04.2011 Сообщений: 201
	19.05.2013, 13:59 [ТС]
	не помогло) 0

@softonet 32 / 32 / 8 Регистрация: 17.04.2011 Сообщений: 201
	19.05.2013, 16:12 [ТС]
	не помогло при повторном нажатии на кнопку дальше не ищет 0

@volvo Супер-модератор 33414 / 21523 / 8237 Регистрация: 22.10.2011 Сообщений: 36,923 Записей в блоге: 12
	19.05.2013, 16:40
	Почему у меня - ищет, а у тебя - нет? Может, переменная stolbec описана не там где нужно? Либо глобально, либо в классе формы надо ее описать. 1

@volvo Супер-модератор 33414 / 21523 / 8237 Регистрация: 22.10.2011 Сообщений: 36,923 Записей в блоге: 12
	19.05.2013, 17:13
	Ничего подобного у себя не вижу: Что-то с твоей стороны приводит к такой ошибке, показывай больше кода, чтобы можно было разобраться. 0