Сортировка слов в строках Memo

[sokol281]

Дорогие программисты, как отсортировать слова во всех строках Memo в алфавитном порядке? Очень нужно. Пытался взять код найденный в сети и адаптировать, но ничего не вышло.
Возможно кто-то знает имеет готовое решение дабы не изобретать велосипед с 0)
Пример.

Есть строки в Memo:

бавария аргентина гон-конг
ананас гладиолус банан

должно получиться:

аргентина бавария гонконг
ананас банан гладиолус


Спасибо на перед!

[Alexander Gamza]

Примерно так

 int iSpace;
 AnsiString aTS;
 TStringList *sort = new TStringList;
	sort->Sorted=true;
     
    for(int i=0; i<Memo1->Lines->Count; i++)
{
      aTS=Memo1->Lines->Strings[i];
       Trim(aTS); //удаляем лишние пробелы, вдруг между словами больше одного
        aTS+=" "; //пробел добавляем для подсчета слов
       //считаем слова
    iSpace=0;
        for(int slen=1; slen<aTS.Length(); slen++)
          if(aTS[slen]==' ') iSpace++;
      
      sort->Clear();
        for(int j=0; j<iSpace-1; j++){ //раскидываем строчку на слова
          sort->Add(aTS.SupString(1, aTS.Pos(" ")-1));
          aTS.Delete(1, aTS.Pos(" "));
         }
       sort->Add(aTS);

   aTS="";
      for(j=0; j<sort->Count; j++)
        aTS+=sort->Strings[j]+" ";

    Memo1->Lines->Strings[i]=aTS;
}

Немного топорный экспромт

[Alexander Gamza]

Да, забыл

//обязательно освободим объект
delete sort

[sokol281]

Сообщение от Alexander Gamza

Да, забыл

//обязательно освободим объект
delete sort

Компилятор ругается:
[C++ Error] Unit1.cpp(1403): E2316 'SupString' is not a member of 'AnsiString'
http://prntscr.com/h22glk

Бро, спасибо что помогаешь!

[Alexander Gamza]

Да, забыл

//обязательно освободим объект
delete sort

[Alexander Gamza]

пардон, SubString

[sokol281]

Сообщение от Alexander Gamza

пардон, SubString

Вот, сам догадался загуглить))

int iSpace;
 AnsiString aTS;
 TStringList *sort = new TStringList;
	sort->Sorted=true;

    for(int i=0; i<Memo1->Lines->Count; i++)
{
      aTS=Memo1->Lines->Strings[i];
       Trim(aTS); //??????? ?????? ???????, ????? ????? ??????? ?????? ??????
        aTS+=" "; //?????? ????????? ??? ???????? ????
       //??????? ?????
    iSpace=0;
        for(int slen=1; slen<aTS.Length(); slen++)
          if(aTS[slen]==' ') iSpace++;

      sort->Clear();
        for(int j=0; j<iSpace-1; j++){ //??????????? ??????? ?? ?????
          sort->Add(aTS.SubString(1, aTS.Pos(" ")-1));
          aTS.Delete(1, aTS.Pos(" "));
         }
       sort->Add(aTS);

   aTS="";
      for(int j=0; j<sort->Count; j++)
        aTS+=sort->Strings[j]+" ";

    Memo1->Lines->Strings[i]=aTS;

}

[sokol281]

куда пихать delete sort?)

[Alexander Gamza]

после основного цикла

[sokol281]

Сообщение от Alexander Gamza

после основного цикла

Огромное спасибо дружище! Человечище)))