KUVAUS |
Järjestää listan aakkosjärjestykseen. Valittavanasi on joko nouseva (0) tai laskeva (1) järjestys. Lajittelualgoritmi on yksinkertainen, joten toiminto voi olla hidas, jos lista on suuri. |
KÄYTTÖ |
SortList(id, [tyyppi]) |
id = Lajiteltavan listan id. tyyppi Joko 0 tai 1.
|
Katso myös:
ESIMERKKI |
Include "SDK\include\cbFormElements.cb" SCREEN 800,600 ClsColor 212,208,200 Const Lista1=1 Const Lista2=2 'Luodaan 1. lista AddListItem(Lista1,"Pekka") AddListItem(Lista1,"Väinö") AddListItem(Lista1,"Esko") AddListItem(Lista1,"Aatami") AddListItem(Lista1,"Otto") 'Luodaan 2. lista AddListItem(Lista2,"Maija") AddListItem(Lista2,"Heidi") AddListItem(Lista2,"Anna") AddListItem(Lista2,"Minna") AddListItem(Lista2,"Heli") Repeat järjNous1 = CmdButton("Järjestä nousevasti",50,95,200,20) järjNous2 = CmdButton("Järjestä nousevasti",300,95,200,20) järjLask1 = CmdButton("Järjestä laskevasti",50,117,200,20) järjLask2 = CmdButton("Järjestä laskevasti",300,117,200,20) poista1 = CmdButton("Poista valittu",50,139,200,20) poista2 = CmdButton("Poista valittu",300,139,200,20) lisää1 = CmdButton("Lisää luku",50,161,200,20) lisää2 = CmdButton("Lisää luku",300,161,200,20) If järjNous1 Then SortList(Lista1,0) 'Nolla järjestää listan nousevasti If järjNous2 Then SortList(Lista2,0) If järjLask1 Then SortList(Lista1,1) 'Ykkönen järjestää listan laskevasti If järjLask2 Then SortList(Lista2,1) If poista1 Then DeleteListItem(Lista1,ListSelection(Lista1)) 'ListSelection(id) palauttaa listassa valittuna olevan valinnan numeron If poista2 Then DeleteListItem(Lista2,ListSelection(Lista2)) If lisää1 Then AddListItem(Lista1,Rand(1,1000000),ON) 'ON tekee lisättävästä valinnasta automaattisesti valitun If lisää2 Then AddListItem(Lista2,Rand(1,1000000),ON) List(Lista1,50,50,200,40) List(Lista2,300,50,200,40) DrawScreen Forever |