XProfan

Deutsch

###################################################################
DOPPELTE LISTBOXEINTRÄGE LÖSCHEN
Schnelle Funktion zum löschen doppelter Zeilen in sortierten List-
Boxes.
Copyright Sven Bader 2001
Dieser Quelltext ist Freeware. Bei Verwendung bitte Quelle angeben.
Kritik und Anregungen an: svenbader.de
Für eventuell auftretende Schäden wird keine Haftung übernommen.
###################################################################
Declare listbox&,button&
Window %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

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

EndWhile

Window (%MaxX / 2 - 320), (%MaxY / 2 - 240) - 640,480 Fenster in Bildschirmmitte anzeigen
Cls RGB(192,192,192)

Proc DeleteDoubleLines

    Parameters listbox&
    Declare i%
    SendMessage(listbox&,11,0,0) Listbox Refresh blockieren (schneller)

    While 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 wieder freigeben

EndProc

While %ScanKey <> 27

    WaitInput
    Case GetFocus(button&) : DeleteDoubleLines listbox&

EndWhile