XProfan

Italia

Jac
de
Lad

Hallöle, ich verzweifel im Moment an folgendem Problem:Ich hab eine Gridbox, die hat mehrfach selektierbare Elemente und auf Button-Click sollen die markierten gelöscht werden. Soweit so gut, nur funktioniert mein Quelltext nicht. Kann mir jemand helfen?
Kompilieren Markieren Separieren

declare grid&,c&,a&,d&
cls
grid&=Create("GridBox",%HWnd,"Uhrzeit;0;82;Zeit;0;40;Ausgeführte Tätigkeiten;0;460",2,8,40,600,302)
d&=Create("Button",%HWnd,"&Neu laden",512,8,96,24)

whileloop 35

    AddString(grid&,Str$(&Loop))

wend

whilenot CLicked(d&)

    waitinput

wend

c&=0
a&=GetCount(grid&)

while LT(c&,a&)

    if GetState(grid&,c&)

        DeleteString(grid&,c&)

    else

        Inc c&

    endif

    EnableWindow d&,0
    EnableWindow grid&,0

    while 1

    wend

    Bitte mit Systemmenü beenden

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

03.06.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Hallo Jac,
Es sind mir ein paar zu viele seltsame Schleifen in Deinem Code. Ich habs mal etwas umgeschrieben:
Kompilieren Markieren Separieren

Declare Grid&,C&,A&,D&

Proc Button_D

    If GetCount(Grid&) > 0

        print "gelöschte Einträge (Indexnr!)"

        WhileLoop GetCount(Grid&) -1,0,-1Wichtig!!! Von Rückwärts auslesen und löschen

            sonst stimmen die Indizes nicht mehr!!

            If GetState(Grid&, &loop) > 0

                DeleteString(Grid&,&Loop)
                print &loop,

            EndIf

        Wend

    EndIf

EndProc

Cls
Grid&=Create("GridBox",%Hwnd,"Uhrzeit;0;82;Zeit;0;40;Ausgeführte Tätigkeiten;0;460",2,8,40,600,302)
D&=Create("Button",%Hwnd,"&Neu laden",512,8,96,24)

Whileloop 35

    Addstring(Grid&,Str$(&Loop))

Wend

Hauptschleife

While 1

    Waitinput

    If Clicked(D&)

        Button_D(Grid&)

    EndIf

Wend