XProfan

Español

###################################################################
DOPPELTE LISTBOXEINTRÄGE LÖSCHEN
Schnelle Función para löschen doppelter Zeilen en sortierten List-
Boxes.
Copyright Sven Bader 2001
Dieser Ver código fuente es Freeware. En Verwendung Por favor, Quelle angeben.
Kritik y Sugerencias a: svenbader.de
Für eventuell auftretende Schäden se no Haftung übernommen.
###################################################################
Declarar listbox&,button&
Ventana %MaxX,%MaxY-640,480
listbox&  =  Control(ListBox,,$54211143,10,28,600,300,%hwnd,0,%hInstance,$0200)
button&   =  Control(Button,Doppelte Zeilen löschen,$54010000,10,328,600,30,%hwnd,0,%hInstance,$0200)

WhileLoop 260 Listbox füllen

    AddStrings(listbox&,Chr$(add(Rnd(26),65)))

EndWhile

Ventana (%MaxX / 2 - 320), (%MaxY / 2 - 240) - 640,480 Ventana en Bildschirmmitte Mostrar
Cls RGB(192,192,192)

Proc DeleteDoubleLines

    Parámetros listbox&
    Declarar i%
    SendMessage(listbox&,11,0,0) Listbox Refresh blockieren (más rápido)

    Mientras que Neq(i%,Getcount(listbox&))

        If GetString$(listbox&,i%) = GetString$(listbox&,(i% + 1))

            DeleteString(listbox&,i%)
            Dec i%

        EndIf

        Inc i%

    EndWhile

    SendMessage(listbox&,11,1,0) Listbox Refresh otra vez liberación

ENDPROC

Mientras que %ScanKey <> 27

    WaitInput
    Case GetFocus(button&) : DeleteDoubleLines listbox&

EndWhile