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

← →
resuS (2006-06-23 20:28) [0]

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

← →
balepa © (2006-06-23 21:25) [1]

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

← →
resuS (2006-06-24 05:05) [2]

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

← →
MeF Dei Corvi © (2006-06-24 05:26) [3]

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

← →
ЮЮ © (2006-06-24 06:04) [4]

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

← →
resuS (2006-06-24 13:23) [5]

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

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;

Сортировка по алфавиту Найти похожие ветки