Memo и работа с сортировкой текста

@1klass · Регистрация: 12.12.2015

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

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

C++

TStringList *sl = new TStringList; 
sl->Text = Edit1->Text; 
sl->Sort();
Edit2->Text = sl->Text;
delete sl;

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

@Sasha · 13.12.2015, 18:51

Не знаю как у Вас, но у меня сортирует строки по алфавиту

C++

oid __fastcall TForm1::Button1Click(TObject *Sender)
{
 TStringList *sl = new TStringList;
 sl->DelimitedText = Edit1->Text;
 sl->Delimiter = ' ';
 sl->Sort();
 Edit2->Text = StringReplace(sl->Text,"\r\n"," ", TReplaceFlags() << rfReplaceAll);
 delete sl;
 sl = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text = "Мы толкали паровоз без трубы и без колёс";
}
//---------------------------------------------------------------------------

@1klass · 13.12.2015, 21:34 **[ТС]**

C++

1	StringReplace(sl->Text,"\r\n"," ", TReplaceFlags() << rfReplaceAll)

можешь вот это пояснить ? ничего сдесь не понятно

@Sasha · 14.12.2015, 09:31

Поясняю. Эта строка убирает в строке sl->Text \r\n и ставит пробел. Если не использовать эту строку в коде, то в Edit2->Text, будут слова между которыми будут по 2 квадратика

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	14.12.2015, 09:31	4
	Поясняю. Эта строка убирает в строке sl->Text \r\n и ставит пробел. Если не использовать эту строку в коде, то в Edit2->Text, будут слова между которыми будут по 2 квадратика 1

Memo и работа с сортировкой текста

Решение