XProfan

English

H.Brill

what not everyone white :
The automatic Sorting with whom List - Controls happens Yes
to ASCII, d. h. to 1 comes 10, 11, 12 etc. and not 2, 3, 4
If the numbers but immediately long made go (z.B.001 instead of 1)
so goes too The Sorting correctly.. the goes best with stature$().

Compile Mark Separation

Declare lever grid, list
Window 500, 200
grid  = Create("Gridbox", %HWnd, "spalte 1;0;60;spalte 2;0;80;spalte 3;0;60", 1, 10, 10, 220, 100)
list = Create("Listbox", %HWnd, 1, 250, 10, 220, 100)

WhileLoop 100, 1, -1

    AddStrings(grid, stature$("000", &LOOP) + "|" + "AAA" + "|" + "BBB")
    AddStrings(list, stature$("000", &LOOP))

EndWhile

While 1

    Waitinput

EndWhile

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

12/03/22 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Sven
Bader

here another example, a unsortierte list by hand To sort by Bubble Sort.

Compile Mark Separation

Declare lever grid, list
Declare thisRow$, nextRow$, done&,count&
Window 340, 500
list = Create("Listbox", %HWnd, 0, 0, 0, 320, 400)

WhileLoop 100, 1, -1

    AddStrings(list,  st$(&LOOP)+". Zeile")

EndWhile

count& = GetCount(list) - 1
SendMessage(list,  $000B, 0, 0)'wm_SetRedraw

WhileNot done&

    done& = 1

    WhileLoop count&

        thisRow$ = GetString$(list, &loop - 1)
        nextRow$ = GetString$(list, &loop)

        If val(thisRow$) > val(nextRow$)

            DeleteString(list, &loop - 1)
            InsertString(list, &loop, thisRow$)
            done& = 0

        EndIf

    EndWhile

EndWhile

SendMessage(list, $000B, 1, 0)'wm_SetRedraw
WaitKey