Sort berguna untuk mengurutkan list. Sort terlalu panjang untuk dibahas di sini. Tetapi contohnya adalah seperti ini, menggunakan algoritma bubble-sort:
procedure Sort();
var
i, j: INTEGER;
begin
for i:=0 to Count-1 do
begin
for j:=Count-2 downto I do
begin
if (List[j] < List[j-1]) then
Tukar (j, j-1);
end;
end;
end;
Penilaian:
Add new comment