Сортировка строк в Мемо

@Dfoer · Регистрация: 27.03.2011

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

Понимаю что похожие темы были ну я так чуток и не допонял....
Суть проблемы вот вчем: Прога считает количество символов в тексте(в мемо1) и пишет в мемо2 с новой строки ЧИСЛО символа(посчитаное прогой) и через \т сам символ. Нужно реализовать сортировку вот етих строк, пробывал етим способом:

C++
1
2
3
4
5
6
7
TStringList *rho1 = new TStringList;
//-------------------------------
    rho1->Text = Form1->Memo4->Text;
    rho1->Sort();
    Form1->Memo4->Text = rho1->Text;
 
delete rho1;

НО оно сортирует по первому символу числа т.е. столбец с числами:
1 =
2 "
11 ,
прадставляет как:
1 =
11 ,
2 "... надо в порядке убывания в нормальном виде т.е. 1 2 11

@Sasha · 17.03.2012, 23:56

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

1 2 11

Так по убыванию или по возрастанию?

@Dfoer · 18.03.2012, 00:05 **[ТС]**

По убыванию, завтыкал

@Sasha · 18.03.2012, 00:17

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
int __fastcall CompareIntAsc(TStringList *List, int Index1, int Index2)
 {
  int a = atoi(List->Strings[Index1].c_str());
  int b = atoi(List->Strings[Index2].c_str());
  return a < b;
 }
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TStringList *list = new TStringList();
   list->Assign(ListBox1->Items);
   //list->CustomSort(CompareStringDesc);
   list->CustomSort(CompareIntAsc);
   ListBox1->Items->Assign(list);
   delete list;
   list = NULL;
}

@Sergey-K · 18.03.2012, 02:04

Вот еще вариант сортировки. Так называемая "натуральная" сортировка:

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
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <string>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
int NumericCompare(const std::string &s0, const std::string &s1)
{
  size_t i = 0, j = 0;
  for(; i < s0.size() && j < s1.size();)
    {
      std::string t0(1, s0[i++]);
      while(i < s0.size() && !(isdigit(t0[0]) ^ isdigit(s0[i])))
        t0.push_back(s0[i++]);
      std::string t1(1, s1[j++]);
      while(j < s1.size() && !(isdigit(t1[0]) ^ isdigit(s1[j])))
        t1.push_back(s1[j++]);
      if(isdigit(t0[0]) && isdigit(t1[0]))
        {
          size_t p0 = t0.find_first_not_of('0');
          size_t p1 = t1.find_first_not_of('0');
          if(p0 == std::string::npos)
            t0 = "";
          else
            t0 = t0.substr(p0);
          if(p1 == std::string::npos)
            t1 = "";
          else
            t1 = t1.substr(p1);
          if(t0.size() != t1.size())
            return t0.size() < t1.size() ? -1 : 1;
        }
      if(t0 != t1)
        return t0 < t1 ? -1 : 1;
    }
  return i == s0.size() && j == s1.size() ? 0 : i != s0.size() ? 1 : -1;
}
//---------------------------------------------------------------------------
int __fastcall SortCompare(TStringList *List, int Index1, int Index2)
{
  return NumericCompare(List->Strings[Index1].c_str(),
    List->Strings[Index2].c_str());
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *list = new TStringList();
  list->Assign(Memo1->Lines);
  list->CustomSort(SortCompare);
  Memo1->Lines->Assign(list);
  delete list;
}
//---------------------------------------------------------------------------

Исходный текст:

Code
1
2
3
4
5
Img0
Img11
Img120
Img20
Img3

Результат:

Code
1
2
3
4
5
Img0
Img3
Img11
Img20
Img120

@Dfoer · 18.03.2012, 02: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
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
int __fastcall CompareIntAsc(TStringList *List, int Index1, int Index2)
 {
  int a4 = atoi(List->Strings[Index1].c_str());
  int b4 = atoi(List->Strings[Index2].c_str());
  return a4 < b4;
 }
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{......
    {//в конец кинул ето
   TStringList *list = new TStringList();
   list->Assign(Memo4->Lines);
   //list->CustomSort(CompareStringDesc);
   list->CustomSort(CompareIntAsc);
   Memo4->Lines ->Assign(list);
   delete list;
   list = NULL;
}

или так нельзя???

@Dfoer · 22.03.2012, 00:36 **[ТС]**

Сделал по методу Sergey-K, все коректно работает, Огромное спасибо!

@Sasha · 22.03.2012, 15:43

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

Сделал по методу Sergey-K, все коректно работает, Огромное спасибо!

Ты просил сделать сортировку цифр, а не строк, квот цифры оно сортирует исключительно, а на строки там другой метод

@Sergey-K · 09.04.2012, 22:15

Переписал функцию "натуральной" сортировки без использования #include <string>

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
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
int __fastcall SortCompare(TStringList *List, int Index1, int Index2)
{
  AnsiString s0 = List->Strings[Index1];
  AnsiString s1 = List->Strings[Index2];
  int i = 1, j = 1;
  for(; i <= s0.Length() && j <= s1.Length();)
    {
      AnsiString t0 = s0[i++];
      while(i <= s0.Length() && !(isdigit(t0[1]) ^ isdigit(s0[i])))
        t0 += s0[i++];
      AnsiString t1 = s1[j++];
      while(j <= s1.Length() && !(isdigit(t1[1]) ^ isdigit(s1[j])))
        t1 += s1[j++];
      if(isdigit(t0[1]) && isdigit(t1[1]))
        {
          while(t0 != "" && t0[1] == '0')
            t0.Delete(1, 1);
          while(t1 != "" && t1[1] == '0')
            t1.Delete(1, 1);
          if(t0.Length() != t1.Length())
            return t0.Length() < t1.Length() ? -1 : 1;
        }
      if(t0 != t1)
        return t0.AnsiCompare(t1);
    }
  return i == s0.Length() + 1 && j == s1.Length() + 1 ? 0 :
    i != s0.Length() + 1 ? 1 : -1;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *list = new TStringList;
  list->Assign(Memo1->Lines);
  list->CustomSort(SortCompare);
  Memo1->Lines->Assign(list);
  delete list;
}
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Dfoer 1 / 1 / 0 Регистрация: 27.03.2011 Сообщений: 29
	18.03.2012, 00:05 [ТС]
	По убыванию, завтыкал 0

@Dfoer 1 / 1 / 0 Регистрация: 27.03.2011 Сообщений: 29
	22.03.2012, 00:36 [ТС]
	Сделал по методу Sergey-K, все коректно работает, Огромное спасибо! 0

Сортировка строк в Мемо

Решение