XProfan

Frank
Abbing

Hi.
Kompilieren Markieren Separieren

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

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

22.07.2005 ▲

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-File corsa. Den Interpreter stört das nicht.

Meine Ausstattung: Win98SE, Profan 7.5

Hast Du eine Erklärung dafür?

Saluto Bernd

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&)

ENDWHI

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 ▲

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.

Saluto Bernd

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 Io l' Code modifiziert:
Kompilieren Markieren Separieren

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

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

ENDWH

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&)

Endwh

heissen.

und
Kompilieren Markieren Separieren

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

While Getlines(Listview&)

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

Endwhil

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 è 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&,1pan>

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 per mich. Nun bin ich mit dem Programm ferig. Hier schon mal meinen Dank an alle, die ich immer mal in Anspruch genommen habe.

Saluto Bernd