Author: SerpentSerpent wrote:Napisałem funkcje które umożliwiają sortowanie list rosnąco i malejąco.
Sortowanie rosnące (od minimum do maksimum)Sortowanie malejące (od maksimum do minimum)Spoiler:Przykład użycia:Spoiler:Code: Select all
Export Function Tablica; var tab1, tab2, tab3; begin tab1 := [9, 24, 1, 0, 12]; tab2 := SortListDesc(tab1); tab3 := SortListAsc(tab1); display_strings := tab2; Wait(0$03); display_strings := tab3; end; // tab2 = [24, 12, 9, 1, 0] // tab3 = [0, 1, 9, 12, 24]
Topic: https://forum.original-war.net/viewtopi ... =42&t=4685