Сортировка

[Екатерина66]

Как сделать сортировку строк по возрастанию и убыванию???

[puporev]

Как и любую другую сортировку, например чисел. Строки также можно сравнивать, >, <, >=, <=

[ОДИНОЧЕСТВО В СЕТИ]

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

[lennon]

#include "List.h"
char Chr(int Num)
{
 BYTE b = (int)(Num);
 return (char)b;
}

int Ord(char Word)
{
 BYTE b = Word;
 return b;
}

void Sort(LList * source)
{
 short sorted = 1,changed = 0;
 do
 {
  changed = 0;
  for (int i=0;i<source->Count - 1;i++)
  {
    string str1 = source->Strings(i);
    for (int j = 0;j < str1.length();j++)
    {
     string str2 = source->Strings(i+1);
     int s1 = Ord(str1[j]);
     int s2 = Ord(str2[j]);
     if (s1 > s2)
     {
      source->Rewrite(str2,i);
      source->Rewrite(str1,i+1);
      changed = 1;
     }
     else if (s1 < s2) break;

    }
  }
  sorted = !changed;
 } while (!sorted);
}

List.ZIP
описан пузырьковый метод сортировки
здесь класс LList, просто у меня было написано когдато.. .если надо подгоню поиск строк методом деления пополам.

о.. никогда не читаю до конца ответы =)

[Екатерина66]

Мне это нужно сделать в делфи!там так же как в Паскале?или есть какие нибудь особенности?

[puporev]

Если в консоли Делфи, или это учебное задание, то также как в Паскале. Если использовать возможности Делфи, то заносите строки в LisrBox, а потом пишете
Listbox1.Sorted:=true;
В этом компоненте есть метод(свойство) сортировки.

[Екатерина66]

В этом свойстве сортировка только в алфавитном порядке, а если у меня числа и необходимо по возрастанию и убыванию?! можно ли сделать сортировку в поле memo?

[puporev]

Как сделать сортировку строк по возрастанию и убыванию???

Зачем тогда писали это?
А сортировку чисел делают не в каком-то поле, а алгоритмически, только результат выводят в Мемо или Эдит.
Вот пример программы.

[Екатерина66]

Спасибо!!!!!!!!!!!!!!