Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
ВнизКак отсортировать массив? Найти похожие ветки
← →
Alx2 (2002-04-08 11:03) [1]
procedure SortStringArray(Var SortList: Array of String);
procedure QuickSort(L, R: Integer);
var
I, J: Integer;
P, T: String;
begin
repeat
I := L;
J := R;
P := SortList[(L + R) shr 1];
repeat
while SortList[I]<P do
Inc(I);
while SortList[J]>P do
Dec(J);
if I <= J then
begin
T := SortList[I];
SortList[I] := SortList[J];
SortList[J] := T;
Inc(I);
Dec(J);
end;
until I > J;
if L < J then
QuickSort(L, J);
L := I;
until I >= R;
end;
begin
QuickSort(Low(SortList),High(SortList));
end;
Пример использования:
Var MyArr : array [1..10] of String; // Размеры MyArr могуть быть любыми :)
begin
// Заполняем чем-то MyArr
SortStringArray(MyArr); // Сортируем по возрастанию
// Пользуемся отсортированным.
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c