XProfan

Frank
Abbing

Hi.
Kompilieren Markieren Separieren

x&=GetSelectedLine(listview&)
DeleteItem(listview&,x&)

Dazu muss aber die Listview_Funktionen.inc eingebunden sein. Hierin verstecken sich noch allerhand Definitionen und Messages, die in der Hilfe gar nicht beschrieben sind...

22.07.2005 ▲

Bernd
Kaiser

Hallo Frank,

mein Projekt nähert sich dem Ende, der Compiler ist geölt und letzte Tests laufen. Und siehe da, das Programm rennt in einer Endlosschleife umher. Mit dem Interpreter hats prima funktioniert, compiliert geht es nicht.

Die Listview_Funktionen.inc ist eingebunden.
Kompilieren Markieren Separieren

WHILE @Neq(GetLines(Listview3&),0)      alte Einträge im Listview3 löschen

    Deleteitem(Listview3&,GetLines(Listview3&))
    print GetLines(Listview3&)

ENDWHILE

Die print-Anweisung habe ich nur zur Kontrolle eingebaut, der Wert ändert sich nicht und daher wird die Schleife nicht verlassen.

Nebenbei: Die Listview_Funktionen.inc wird im Hauptprogramm eingebunden, die obige Funktion in einer INC-Datei ausgeführt. Den Interpreter stört das nicht.

Meine Ausstattung: Win98SE, Profan 7.5

Hast Du eine Erklärung dafür?

Gruß Bernd

22.08.2005 ▲

Deleteitem(Listview3&,Getlines(Listview3&)-1) vielleicht?

Salve.

22.08.2005 ▲

Frank
Abbing

Hi,

genau, das -1 ist wichtig. Computer fangen eben bei NULL an zu zählen

22.08.2005 ▲

Bernd
Kaiser

[quote:7d4281758b=iF]Deleteitem(Listview3&,Getlines(Listview3&)-1) vielleicht?

Salve.[/quote:7d4281758b]
Nein, daran liegt es (diesmal) nicht.

Deswegen habe ich die print-Ausgabe eingebaut, um zu sehen, ob sich die Zeilenzahl des Listviews innerhalb der Schleife ändert. Und das macht sie eben nicht.

Interpreter: 2 1 0 (bei 3 Zeilen im Listview)
Compiler: 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ... (eben endlos)

Sieht eher so aus, als erhält das Listview den Befehl zum Zeilenlöschen nicht. Um das zu überprüfen habe ich den Code modifiziert:
Kompilieren Markieren Separieren

WHILE @Neq(GetLines(Listview3&),0)

    LET test%=Deleteitem(Listview3&,GetLines(Listview3&))
    print test%;
    print GetLines(Listview3&)

ENDWHILE

Lt. der Listview_Funktionen.inc soll das Ergebnis TRUE (1) oder FALSE (0) sein. Ich erhalte bei der EXE immer die 0 als Antwort. Im Interpretermodus sind die Antworten korrekt (1).

Habe es auch unter Win2000 getestet: Gleiches Ergebnis.

Gruß Bernd

Ich schaue heut vormittag mal genau - trotzdem müsste es eher:
Kompilieren Markieren Separieren

While Getlines(Listview3&)

    Let Test%=Deleteitem(Listview3&,Getlines(Listview3&)-1)
    Print Test%;
    Print Getlines(Listview3&)

Endwhile

heissen.

So habs probiert. Beide Varianten funktionieren bei mir korrekt:
Kompilieren Markieren Separieren

While Getlines(Listview&)

    Deleteitem(Listview&,Getlines(Listview&)-1)

Endwhile

und
Kompilieren Markieren Separieren

While Getlines(Listview&)

    Deleteitem(Listview&,0)

Endwhile

bedeutend schneller jedoch ist z.B.:
Kompilieren Markieren Separieren

declare c&
c&=Getlines(Listview&)
showwindow(listview&,0)

Whileloop c&

    Deleteitem(Listview&,0)

Endwhile

showwindow(listview&,1)

oder einfach nur:
Kompilieren Markieren Separieren

DeleteAllItems(Listview&)

Salve, iF.

Jörg
Sellmeyer

Was auch sehr schön ist:
Kompilieren Markieren Separieren

~LockWindowUpdate(ListView&)

WhileLoop GetLines(ListView&)

    Deleteitem(Listview&,0)

Wend

~LockWindowUpdate(0)

Evtl. noch ein RePaint oder UpDateListView oder wie das heißt einbauen.
Dabei bleibt das ListView sichtbar.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Frank
Abbing

Und nochmal so ähnlich:
Kompilieren Markieren Separieren

SendMessage(listview&,11,0,0)  WM_SETREDRAW

Whileloop Getlines(listview&)

    Deleteitem(listview&,0)

Wend

SendMessage(listview&,11,1,0)

Bernd
Kaiser

Hallo iF,
diese Variante funktioniert nun.

[quote:34846517f6=iF]
Kompilieren Markieren Separieren

declare c&
c&=Getlines(Listview&)
showwindow(listview&,0)

Whileloop c&

    Deleteitem(Listview&,0)

Endwhile

showwindow(listview&,1)

Salve, iF.[/quote:34846517f6]
Manchmal ist dieses Profan voller Rätsel, warum lief mein Code im Interpreter und im Compiler nicht?

Dies war wieder mal eine neue Erfahrung für mich. Nun bin ich mit dem Programm ferig. Hier schon mal meinen Dank an alle, die ich immer mal in Anspruch genommen habe.

Gruß Bernd