Всем Доброго времени суток. Нужно Прокомментировать чуток строк!!!!

[Ирина Андреевна Пс]

Чего это такое я вообще не пойму!!! Ну кое где просто название модулей! вообще это сортировка массива в лексикографическом порядке!

procedure TfrTasks.btSortClick(Sender: TObject);
var Arr: array of integer;
i: integer;
begin
if (lbArrayToSort.Items.Count = 0) then exit;

SetLength(Arr, lbArrayToSort.Items.Count);

for i := 0 to lbArrayToSort.Items.Count - 1 do
Arr[i] := StrToInt(lbArrayToSort.Items.String s[i]);

ShakeSort(Arr, 0, lbArrayToSort.Items.Count-1);

lbArrayToSort.Clear;
for i := 0 to Length(Arr) - 1 do
lbArrayToSort.Items.Add(IntToStr(Ar r[i]));

SetLength(Arr, 0);
end;



ну прост очень интересно чего это такое мне написали!!! кому не лень, и не трудно выручите. заранее благодарствую!!!

[Stilet]

Если список пуст - выходим
if (lbArrayToSort.Items.Count = 0) then exit;

Иначе создаем массив с таким же кол-вом элементов
SetLength(Arr, lbArrayToSort.Items.Count);


Из списка его наполняем, преобразовывая строчное представление числа в  целое
for i := 0 to lbArrayToSort.Items.Count - 1 do
Arr[i] := StrToInt(lbArrayToSort.Items.String s[i]);

Шейк ит бэви ван мор тайм
ShakeSort(Arr, 0, lbArrayToSort.Items.Count-1);

Потом что что отсортировалось возвращаем назад в список
lbArrayToSort.Clear;
for i := 0 to Length(Arr) - 1 do
lbArrayToSort.Items.Add(IntToStr(Ar r[i]));

И очищаем массив, убирая мусор.
SetLength(Arr, 0);

[Ирина Андреевна Пс]

Спасибо, большое!!! НЕ забуду вашей доброты