| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сортировка по алфавиту

resuS ©   (2006-06-23 20:28:00) 

Есть таблица слов в массиве, как их отсортировать по алфавиту
A(1)="фыва"
A(2)="олрда"
A(3)="чти"
А(4)="в"
...

---

Loginov Dmitry   (2006-06-24 13:34:00) [1]

procedure TStringList.QuickSort(L, R: Integer; SCompare: TStringListSortCompare);
var
 I, J, P: Integer;
begin
 repeat
   I := L;
   J := R;
   P := (L + R) shr 1;
   repeat
     while SCompare(Self, I, P) < 0 do Inc(I);
     while SCompare(Self, J, P) > 0 do Dec(J);
     if I <= J then
     begin
       ExchangeItems(I, J);
       if P = I then
         P := J
       else if P = J then
         P := I;
       Inc(I);
       Dec(J);
     end;
   until I > J;
   if L < J then QuickSort(L, J, SCompare);
   L := I;
 until I >= R;
end;

---

resuS   (2006-06-24 13:23:00) [2]

смотри исходники
TStringList.Sort
А как их просмотреть?

---

ЮЮ   (2006-06-24 06:04:00) [3]

смотри исходники
TStringList.Sort

---

MeF Dei Corvi   (2006-06-24 05:26:00) [4]

Алгоритм сортировки+алгоритм сравнивания строк. В чём проблема?

---

resuS   (2006-06-24 05:05:00) [5]

нет, мне нужен алгоритм.(Т. к. пишу на Visual Basic, но если узнаю как это сделать на паскале, то и там сделаю)

---

balepa   (2006-06-23 21:25:00) [6]

а tstringlist не пробовал юзать

---

Наверх