Сортировка списка

@Степан_888 · Регистрация: 07.04.2016

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

Доброго времени суток. Есть список в RichEdit. Необходимо при нажатии на кнопку, отсортировать. В сети ничего не нашел. Скриншот прикладываю.

Спасибо.

@nick42 · 27.09.2017, 09:48

Например так

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::Button2Click(TObject *Sender)
{
     TStringList *SL = new TStringList;
     SL->Assign(RichEdit1->Lines);
     SL->Sort();
     RichEdit1->Lines->Assign(SL);
     delete SL;
}

с использованием StringList'а.

@Степан_888 · 27.09.2017, 09:58 **[ТС]**

nick42, Спасибо. Отличный код. Скажите, у меня скрипт не работает без сортировки. Для чего она мне и понадобилась. Может я вовсе не правильно его написал, и если внести корректировку, сортировка вовсе не понадобится? Идет сравнение списков: RichEdit1 сравнивается с RichEdit2. В случае, если у RichEdit1 есть то, чего нет у RichEdit2, то поместить в RichEdit3.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 String TXT1RichEdit1;
 String TXT1RichEdit2;
  //цикл пробег по строкам
 for (int i=0; i <= RichEdit1->Lines->Count-1; i++)//колич. строк (Текст перевода)
  {
       TXT1RichEdit1 = RichEdit1->Lines->Strings[i]; //№ строки
       TXT1RichEdit2 = RichEdit2->Lines->Strings[i];
       if  (TXT1RichEdit1 != TXT1RichEdit2){
        RichEdit3->Lines->Add(TXT1RichEdit1);
       }
     }
}

@nick42 · 27.09.2017, 10:20

Сообщение от Степан_888

если у RichEdit1 есть то, чего нет у RichEdit2, то поместить в RichEdit3

Если я вас правильно понял, то такая запись должна решить эту задачу. Попробуйте__

C++
1
2
3
    for(int i=0;i<RichEdit1->Lines->Count;i++)
      if(RichEdit2->Lines->IndexOf(RichEdit1->Lines->Strings[i])<0)
        RichEdit3->Lines->Add(RichEdit1->Lines->Strings[i]);

@Степан_888 · 27.09.2017, 10:38 **[ТС]**

nick42, Спасибо, да, действительно, вы меня правильно поняли ) Я каждый раз нажимаю "Сравнить" и список каждый раз наполняется (добавляется в RichEdit3). Ошибочно дважды нажмешь и все, список в два раза больше, считай пропало. А каждый раз применять "Clear" не очень удобно скажем, что мне надо дописать? Подскажете?

@nick42 · 27.09.2017, 10:41

.. перед этим циклом просто очищать RichEdit3 - RichEdit3->Clear();

@Степан_888 · 01.10.2017, 04:27 **[ТС]**

nick42, Здравствуйте

У меня есть номера (1 колонка) и атрибуты (2 колонка). Работает у меня только 1 колонка с номерами (вторую не знаю как подключить, или может использовать ListEdit для этого). Хорошо, а если например сохранять, содержимое RichEdit1 и что бы к записи, напротив неё в скобках указывался атрибут.
Что то вроде:

C++
1
RichEdit1->Lines && Edit1->SaveToFile("C:\\file.rtf");

Если посмотреть на скриншот, то при сохранении, в текстовом файле, напротив каждой записи будет атрибут.

@D1973 · 01.10.2017, 05:48

Степан_888, а может хватит вопросы дублировать в разных темах?

@Степан_888 · 01.10.2017, 08:24 **[ТС]**

D1973, Прошу прощения

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

Сортировка списка

Решение

Решение

Решение

@Степан_888 1 / 1 / 1 Регистрация: 07.04.2016 Сообщений: 243

	Сортировка списка 27.09.2017, 09:27. Показов 1843. Ответов 8 Метки нет (Все метки) Доброго времени суток. Есть список в RichEdit. Необходимо при нажатии на кнопку, отсортировать. В сети ничего не нашел. Скриншот прикладываю. Спасибо. Изображения 0

@Степан_888 1 / 1 / 1 Регистрация: 07.04.2016 Сообщений: 243
	27.09.2017, 10:38 [ТС]
	nick42, Спасибо, да, действительно, вы меня правильно поняли ) Я каждый раз нажимаю "Сравнить" и список каждый раз наполняется (добавляется в RichEdit3). Ошибочно дважды нажмешь и все, список в два раза больше, считай пропало. А каждый раз применять "Clear" не очень удобно скажем, что мне надо дописать? Подскажете? 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	27.09.2017, 10:41
	Сообщение было отмечено Степан_888 как решение Решение .. перед этим циклом просто очищать RichEdit3 - RichEdit3->Clear(); 0

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	01.10.2017, 05:48
	Степан_888, а может хватит вопросы дублировать в разных темах? 0

@Степан_888 1 / 1 / 1 Регистрация: 07.04.2016 Сообщений: 243
	01.10.2017, 08:24 [ТС]
	D1973, Прошу прощения 0