Сделать сортировку StringGrid

@Bastis · Регистрация: 22.09.2009

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

Задали сделать сортировку StringGrid. Код,который написала я преподу не понравился, сказал написать короче. Подскажите пожалуйста как...
Код:

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
if (RG->ItemIndex==0)
 {
    String buff;
 String buff2;
 String buff3;
 
 for (int i = 0; i < SG->RowCount-1; i++)
   for (int j = i; j < SG->RowCount; j++)
    {
     if (SG->Cells[1][i]<SG->Cells[1][j])
     {
          buff=SG->Cells[0][i];
          SG->Cells[0][i]= SG->Cells[0][j];
          SG->Cells[0][j]=buff;
 
          buff2=SG->Cells[1][i];
          SG->Cells[1][i]= SG->Cells[1][j];
          SG->Cells[1][j]=buff2;
 
          buff3=SG->Cells[2][i];
          SG->Cells[2][i]= SG->Cells[2][j];
          SG->Cells[2][j]=buff3;
     }
    }
 }
 if (RG->ItemIndex==1)
 {
    String buff;
 String buff2;
 String buff3;
 for (int i = 1; i < SG->RowCount+1; i++)
   for (int j = i; j < SG->RowCount; j++)
   {
     if ((StrToInt(SG->Cells[2][i]))>StrToInt((SG->Cells[2][j])))
      {
       buff=SG->Cells[0][i];
       SG->Cells[0][i]= SG->Cells[0][j];
       SG->Cells[0][j]=buff;
 
       buff2=SG->Cells[1][i];
       SG->Cells[1][i]= SG->Cells[1][j];
       SG->Cells[1][j]=buff2;
 
       buff3=SG->Cells[2][i];
       SG->Cells[2][i]= SG->Cells[2][j];
       SG->Cells[2][j]=buff3;
      }
   }
 }

@gradiusalisik · 19.01.2010, 20:28

C++
1
2
3
4
5
6
7
8
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
  TStringList *sl=new TStringList;
  sl->StringGrid2->Cells[2][i];
  sl->CustomSort(MySortCompare);
  ShowMessage(sl->Text);
  delete sl;
}

Ругается что StringGrid2 не описан в TStringList , а то что там написано без объяснений я не понимаю, что там изменить чтобы обращение работало тоже не подрузамеваю. Все методом тыка и пока безрезультатно хотя метод тыка начался после 5-ти часового обдумывания и поиска что же сделать , чтобы работало...

Добавлено через 51 секунду

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

gradiusalisikты еще выбираешь по какому столбцу сортировать?

Да

@Lord_Voodoo · 19.01.2010, 20:32

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

@gradiusalisik · 19.01.2010, 20:37

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

Добавлено через 3 минуты

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

gradiusalisik, а можно узнать из каких соображений появился этот код?

Из того что данный путь ведет в столбец , который нужно сортировать.

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

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

gradiusalisik, вы вообще справку по билдеру смотрели?

В самой программе она на англицйском , я к сожелению его не знаю, а переводить чуть ли ни целую книгу это не так просто и займет много времени.

@Lord_Voodoo · 19.01.2010, 20:47

gradiusalisik, проблема в том, что код вам надо делать немного хитрее, чем он представлен в этой теме, вам надо сформировать список данных для стринглиста... т.е. пробежаться по всему гриду и конкатенацией объединить все столбцы построчно, потом отсортировать и потом уже разбить строки на ячейки по столбцам... в принципе сложностей нет... а заморский язык учить придеться, иначе будет сложно

@gradiusalisik · 19.01.2010, 20:59

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

в принципе сложностей нет...

Для кого как , я пока только стараюсь что-нибудь понять и научиться чему-нибудь , поэтому для меня это архисложно.

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

заморский язык учить придеться,

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

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

код вам надо делать немного хитрее

Да я это подозревал, но как не знал так и не знаю).Еще я не понял , что из себя представляет вот эта часть программы , понял что это сама сортировка , но как подробно все происходит и откуда опции лемитед и т.п.

C++
1
2
3
4
5
6
7
8
int __fastcall MySortCompare(TStringList* List, int Index1, int Index2)
{
  AnsiString str1=List->Strings[Index1];
  str1 = str1.SubString(str1.Pos(" ") + 1, str1.LastDelimiter(" ") - 1 - str1.Pos(" "));
  AnsiString str2=List->Strings[Index2];
  str2 = str2.SubString(str2.Pos(" ") + 1, str2.LastDelimiter(" ") - 1 - str2.Pos(" "));
  return strcmp(str1.c_str(), str2.c_str());
}

И еще , вы не даете курсы билдера в ускоренном режиме? Мне бы они не помешали так как курсовую нужно сдать через пару дней, преподаватель дал ее поздно и я сомневаюсь что своими силами я что-нибудь успею((

@Lord_Voodoo · 19.01.2010, 23:53

gradiusalisik, это функция сравнения, которую использует для своих нужд пользовательская сортировка

@Зоти Сергей · 21.01.2010, 00:43

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

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
 String buff;
 String buff2;
 String buff3;
if (RG->ItemIndex==0)
 {
   
 for (int i = 0; i < SG->RowCount-1; i++)
   for (int j = i; j < SG->RowCount; j++)
    {
     if (SG->Cells[1][i]<SG->Cells[1][j])
     {
        for(int k=0;k<3;k++)
        {
          buff=SG->Cells[k][i];
          SG->Cells[k][i]= SG->Cells[k][j];
          SG->Cells[k][j]=buff;
        }
     }
    }
 }
 if (RG->ItemIndex==1)
 {
    
 for (int i = 1; i < SG->RowCount+1; i++)
   for (int j = i; j < SG->RowCount; j++)
   {
     if ((StrToInt(SG->Cells[2][i]))>StrToInt((SG->Cells[2][j])))
      {
        for(int k=0;k<3;k++)
        {
           buff=SG->Cells[k][i];
           SG->Cells[k][i]= SG->Cells[k][j];
           SG->Cells[k][j]=buff;
        }
      }
   }
 }

Новые блоги и статьи Все статьи Все блоги /
Remote Connection Manager DevAlt 21.06.2026 Написал для себя небольшую прилагу: https:/ / github. com/ altbodhi/ ReConMan По итогу пришел к мысли, что DU не дружат с существующими технологиями. От сериализации до отображения в реляционную. . .	Администрация Хабра удаляет новые алгоритмы, которые не западно ориентированной философии кода, без уведомлений и объяснений. Hrethgir 20.06.2026 Делается это, как замечено, при правках - при объявлении концептуальных отличий в алгоримах. Делается это, по линейке событий - после дополнения публикации основными отличиями от основных западных. . .	Процесс ориентированная диалектика (не новость - просто системное обновление, философия). Hrethgir 20.06.2026 Однажды один участник в своём блоге, на этом форуме, сделал запись "О языках замолвите слово". Понимая, что язык - важная вещь, я решил хорошо подумать, прежде чем сказать, и сказал то, что вы видите. . .	Контроль уникальности строк в табличной части документа Maks 18.06.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ПланированиеСпецтехники" с табличной частью "НаличиеОборудования", разработанного в КА2. Задача: контроль уникальности строк в. . .
Клиент Uhbif79 18.06.2026 Здесь простой клиент для работы с сервером.	Сервер Uhbif79 18.06.2026 Выкладываю простейший сервер.	Дефенестрация kumehtar 18.06.2026 Узнал интересное слово. Дефенестрация. Это когда ты выбрасываешь кого-либо или что-либо из окна. Возьму на вооружение)))	Дихотомия добра и зла kumehtar 18.06.2026 Как Дзен-буддисты говорят о добре и зле: не нужно воевать против зла, нужно воевать против невежества. Тогда добро станет ествественным, и поэтому вечным. Но дело в том, что невежество всё время. . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.01.2010, 20:32
	gradiusalisik, а можно узнать из каких соображений появился этот код? в классе стринглист нет такого свойства точно... вы вообще справку по билдеру смотрели? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.01.2010, 20:47
	gradiusalisik, проблема в том, что код вам надо делать немного хитрее, чем он представлен в этой теме, вам надо сформировать список данных для стринглиста... т.е. пробежаться по всему гриду и конкатенацией объединить все столбцы построчно, потом отсортировать и потом уже разбить строки на ячейки по столбцам... в принципе сложностей нет... а заморский язык учить придеться, иначе будет сложно 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	19.01.2010, 23:53
	gradiusalisik, это функция сравнения, которую использует для своих нужд пользовательская сортировка 0