Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Вниз

Срочно помогите!!!   Найти похожие ветки 

← →
lipskiy   (2002-03-29 00:58) [2]

Что-то очень уж код длинный.
Вот покороче и для Дельфи (рекурсивная сортировка).
Сортирует строки, но легко переделать и под любой тип данных.

procedure TForm1.QSortString(var A: TStringList);

procedure QuickSort(var A: TStringList; iLo, iHi: integer);
var
Lo, Hi : integer;
Mid : string;
T : String;
begin
Lo := iLo;
Hi := iHi;
Mid := A[(Lo + Hi) div 2];
repeat
while A[Lo] < Mid do Inc(Lo);
while A[Hi] > Mid do Dec(Hi);
if Lo <= Hi then
begin
T := A[Lo];
A[Lo] := A[Hi];
A[Hi] := T;
Inc(Lo);
Dec(Hi);
end;
until Lo > Hi;
if Hi > iLo then QuickSort(A, iLo, Hi);
if Lo < iHi then QuickSort(A, Lo, iHi);
end;

begin
QuickSort(A, 0, A.Count-1);
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.044 c