XProfan

windowtitle "Listboxlisten - Test " + $ProfVer
windowstyle 1024+16+8
window 250,150
var txt1& = @Control("STATIC", "Fülle Listboxliste...", $50000001,0,3,width(%hwnd),15, %hWnd,0, %hInstance)
var txt2& = @Control("STATIC", "- - -", $50000001,0,20,width(%hwnd),15, %hWnd,0, %hInstance)
var txt3& = @Control("STATIC", "Füllstand lt. getcount(0) :", $50000001,0,50,width(%hwnd),20, %hWnd,0, %hInstance)
var txt4& = @Control("STATIC", "- - -", $50000001,0,75,width(%hwnd),15, %hWnd,0, %hInstance)

whileloop 1,300000

    settext txt2&,format$("###,##0" ,&loop)
    addstring(0,str$(&loop))
    settext txt4&, format$("###,##0" ,getcount(0))

endwhile

waitinput
end

 {$cleq}
cls
print "Listboxeinträge: ",getCount(myLB())
waitinput
end

nProc myLB

    long lst=createList(0)

    whileloop 300000

        addstring(lst,"jo")

    wend

    return lst

endproc

 {$cleq}
cls
print "250.000:\nX:",test2(250000),"ms\nI:",test3(250000),"ms\n"
print " 50.000:\nX:",test2(50000),"ms\nI:",test3(50000),"ms\n"
print "  5.000:\nX:",test2(5000),"ms\nI:",test3(5000),"ms\n"
print "    200:\nX:",test2(200),"ms\nI:",test3(200),"ms\n"
waitinput
end

Proc test2(long c)

    long lst=create("list",0)
    long tme=getTickCount

    whileloop c

        addstring(lst,"1234567890")

    wend

    tme=getTickCount-tme
    destroyWindow(lst)
    return tme

endproc

Proc test3(long c)

    clearlist
    long tme=getTickCount

    whileloop c

        addstring "1234567890"

    wend

    tme=getTickCount-tme
    return tme

endproc