Самое быстрое сравнение двух (трех, четырех) столбцов

@serg87i · Регистрация: 11.10.2010

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

Доброго времени суток. Я хотел бы узнать как можно ускорить процесс сравнения двух Мемо полей на дубликаты? Сравниваю так

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Form1->ProgressBar1->Position = 0;
 Form1->ProgressBar1->Max = Memo1->Lines->Count;
 for(int i = 0; i < Memo1->Lines->Count; i++){
 Form1->ProgressBar1->Position = i;
    Application->ProcessMessages();
    for(int j = 0; j < Memo2->Lines->Count; j++)
    {
      if(Memo1->Lines->Strings[i] == Memo2->Lines->Strings[j]){
        List->Add(Memo1->Lines->Strings[i]);
        Memo3->Clear();
        Memo3->Text = List->Text;
               break;
                }
      }
   }
        Form1->ProgressBar1->Position = 0;

К примеру в Мемо1 6000 записей а в Мемо2 15000 приблизительное время сравнения 15 минут. Есть похожая прога которая те же данные сравнивает за 1 минуту КАК ТАК ??? КАКОЙ ТАМ алгоритм ????. Может все данные згонять в одну кучу, отсортировать, и попарно искать, но как это написать не знаю. У кого какие идеи? Спс.

@Lelik-pahan · 07.02.2013, 19:19

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
    //Списки для сравнения
    TStringList *SL_a = new TStringList();
    TStringList *SL_b = new TStringList();
    TStringList *SL_c = new TStringList();
    TStringList *SL_d = new TStringList();
    //список для результата
    TStringList *SL_r = new TStringList();
 
    // Сортировка
    SL_a->Sorted = true;
    SL_b->Sorted = true;
    SL_c->Sorted = true;
    SL_d->Sorted = true;
 
    //Заносим данных в СтригЛисты
    SL_a->Text = Memo1->Text;
    SL_b->Text = Memo2->Text;
    SL_c->Text = Memo3->Text;
    SL_d->Text = Memo3->Text;
 
    for(int i_a = 0; i_a < SL_a->Count; i_a++)  //проходим по списку a
    {
        for(int i_b = 0; i_b < SL_b->Count; i_b++)  //проходим по списку b, ищем совпадение a и b
        {
            if (SL_a->Strings[i_a] == SL_b->Strings[i_b])  //если есть совпадение
            {
                for(int i_c = 0; i_c < SL_c->Count; i_c++)  //проходим по списку c, ищем совпадение a, b и c
                {
                    if (SL_a->Strings[i_a] == SL_c->Strings[i_c])  //если есть совпадение
                    {
                        for(int i_d = 0; i_d < SL_d->Count; i_d++)  //проходим по списку d, ищем совпадение a, b, c и d
                        {
                            if (SL_a->Strings[i_a] == SL_d->Strings[i_d])  //если есть совпадение
                                SL_r->Add(SL_a->Strings[i_a]);  //записываем в результирующий список
                        }
                    }
                }
            }
        }
    }
 
    Memo5->Clear();
    Memo5->Lines->AddStrings(SL_r);  //выводим результат
 
    //освобождаем память
    delete SL_a;
    SL_a = NULL;
    delete SL_b;
    SL_b = NULL;
    delete SL_c;
    SL_c = NULL;
    delete SL_d;
    SL_d = NULL;
    delete SL_r;
    SL_r = NULL;

@serg87i · 07.02.2013, 20:31 **[ТС]**

Сообщение от Lelik-pahan

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
    //Списки для сравнения
    TStringList *SL_a = new TStringList();
    TStringList *SL_b = new TStringList();
    TStringList *SL_c = new TStringList();
    TStringList *SL_d = new TStringList();
    //список для результата
    TStringList *SL_r = new TStringList();
 
    // Сортировка
    SL_a->Sorted = true;
    SL_b->Sorted = true;
    SL_c->Sorted = true;
    SL_d->Sorted = true;
 
    //Заносим данных в СтригЛисты
    SL_a->Text = Memo1->Text;
    SL_b->Text = Memo2->Text;
    SL_c->Text = Memo3->Text;
    SL_d->Text = Memo3->Text;
 
    for(int i_a = 0; i_a < SL_a->Count; i_a++)  //проходим по списку a
    {
        for(int i_b = 0; i_b < SL_b->Count; i_b++)  //проходим по списку b, ищем совпадение a и b
        {
            if (SL_a->Strings[i_a] == SL_b->Strings[i_b])  //если есть совпадение
            {
                for(int i_c = 0; i_c < SL_c->Count; i_c++)  //проходим по списку c, ищем совпадение a, b и c
                {
                    if (SL_a->Strings[i_a] == SL_c->Strings[i_c])  //если есть совпадение
                    {
                        for(int i_d = 0; i_d < SL_d->Count; i_d++)  //проходим по списку d, ищем совпадение a, b, c и d
                        {
                            if (SL_a->Strings[i_a] == SL_d->Strings[i_d])  //если есть совпадение
                                SL_r->Add(SL_a->Strings[i_a]);  //записываем в результирующий список
                        }
                    }
                }
            }
        }
    }
 
    Memo5->Clear();
    Memo5->Lines->AddStrings(SL_r);  //выводим результат
 
    //освобождаем память
    delete SL_a;
    SL_a = NULL;
    delete SL_b;
    SL_b = NULL;
    delete SL_c;
    SL_c = NULL;
    delete SL_d;
    SL_d = NULL;
    delete SL_r;
    SL_r = NULL;

Спасибо!!!!!!!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. Сразу отвечу: А в PvP с ним. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .