Поиск как в Google

@xVIKx · Регистрация: 26.05.2013

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

Я хочу сделать поиск как в Google, чтобы выводились все совпадения, а у меня не получается.
Нужно сделать так, чтобы не учитывался регистр символов и выводились все совпадения (ввёл: "лич", а оно выводит: "личный", "наличные"). Это можно сделать в этом коде?

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
    void __fastcall TForm1::N5Click(TObject *Sender)//Поиск
{
    int i,m,k=0;
    TFileStream *op=new TFileStream(name, fmOpenRead);
    String zp=InputBox("Запит","Введіть автора чи назву книги:","");
    Del();
    m=zp.Length();
    for(int i=1;i<n+1;i++)
    {
AnsiString sAvtor = AnsiString(knigi[i].avtor);
 
for(i=1; i<n+1; i++)
{   AnsiString s=knigi[i].avtor;
        op->Read(&knigi, sizeof(inform));
 
if(s.SetLength(m)==zp)
        
        {
            k++;
            KNI->Cells[0][k]=IntToStr(i);
            KNI->Cells[1][k]=knigi[i].avtor;
            KNI->Cells[2][k]=knigi[i].nazvanie_knigi;
            KNI->Cells[3][k]=knigi[i].redakcia;
            KNI->Cells[4][k]=knigi[i].izdatelstvo;
            KNI->Cells[5][k]=knigi[i].god_izdaniya;
            KNI->Cells[6][k]=knigi[i].kolichestvo_ekzemplyarov;
            KNI->Cells[7][k]=knigi[i].mesto;
        }
        /*else
        ShowMessage("Збігів немає!");
        return; */
    }
    delete op;
}
}

@xVIKx · 10.11.2014, 12:26 **[ТС]**

Решил данную проблему. Если кому-то нужно будет:

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
void __fastcall TForm1::N5Click(TObject *Sender)//Поиск
{
    int i,m,k=0;
    TStringList *Searched = new TStringList;
    bool Exist = false;
 
    String SearchString;
 
   if (!InputQuery("Пошук","Введіть автора чи назву книги:", SearchString)) {
     return;
   }
    //Ишем по имени автора
    for (i = 0; i < KNI->Cols[1]->Count; i++) {
        m = Pos(SearchString.LowerCase(),KNI->Cells[1][i+1].LowerCase());
        if (m != 0) {
            Searched->Add(KNI->Cells[0][i+1]);
        }
    }
 
    //Ишем по названию книги
    for (i = 0; i < KNI->Cols[2]->Count; i++) {
        m = Pos(SearchString.LowerCase(),KNI->Cells[2][i+1].LowerCase());
        if (m != 0) {
            Exist = false;
            //Если уже есть, то не добавляем в "Найденые"
            for (k = 0; k < Searched->Count; k++) {
                if (Searched->Strings[k] == KNI->Cells[0][i+1]) {
                    Exist = true;
                    break;
                }
            }
            if (!Exist) Searched->Add(KNI->Cells[0][i+1]);
        }
    }
 
   //Чистим таблицу
   for (i = 0; i < KNI->ColCount; i++) {
     KNI->Cols[i]->Clear();
   }
     FormCreate(Sender); //Заполняем шапку
 
   //Добавляем найдение книги
    for (i = 0; i < Searched->Count; i++) {
       k = StrToInt(Searched->Strings[i]);
       KNI->Cells[0][i+1]=IntToStr(i+1);
       KNI->Cells[1][i+1]=knigi[k].avtor;
       KNI->Cells[2][i+1]=knigi[k].nazvanie_knigi;
       KNI->Cells[3][i+1]=knigi[k].rabot;
       KNI->Cells[4][i+1]=knigi[k].izdatelstvo;
       KNI->Cells[5][i+1]=knigi[k].god_izdaniya;
       KNI->Cells[6][i+1]=knigi[k].kolichestvo_ekzemplyarov;
       KNI->Cells[7][i+1]=knigi[k].i_nomer;
       KNI->Cells[8][i+1]=knigi[k].shifr;
    }
 
    delete Searched;
}

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .