Форум: "Начинающим";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];
Вниз
Сортировка по алфавиту Найти похожие ветки
← →
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
А как их просмотреть?
← →
Loginov Dmitry © (2006-06-24 13:34) [6]
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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c
