XProfan

Frank
Abbing

Hi.
Kompilieren Marque Séparation

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

en supplément muss mais qui Listview_Funktionen.inc eingebunden son. Hierin verstecken sich encore allerhand Definitionen et Messages, qui dans qui Aider gar pas beschrieben sommes...

22.07.2005 ▲

qui imprimer-Anweisung habe je seulement zur Kontrolle incorporé, qui Wert ändert sich pas et daher wird qui Boucle pas sortir de.

Nebenbei: qui Listview_Funktionen.inc wird im Hauptprogramm eingebunden, qui obige Funktion dans einer INC-Dossier fonctionnement. Den Interpreter stört cela pas.

mon Ausstattung: Win98SE, Profan 7.5

Avez-vous un Erklärung pour?

Salut Bernd

Bernd
Kaiser

allô Frank,

mon projet nähert sich dem Ende, qui Compiler ist geölt et dernier Tests courir. et siehe là, cela Programme rennt dans einer Endlosschleife umher. avec dem Interpreter hats prima funktioniert, compilé ca va pas.

qui Listview_Funktionen.inc ist eingebunden.
Kompilieren Marque Séparation

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) peut-être?

Salve.

22.08.2005 ▲

Frank
Abbing

Hi,

oui c'est ca, cela -1 ist important. ordinateur attraper plan chez NULL à trop zählen

22.08.2005 ▲

Lt. qui Listview_Funktionen.inc soll cela Ergebnis TRUE (1) ou bien FALSE (0) son. je erhalte chez qui EXE toujours qui 0 comme Antwort. Im Interpretermodus sommes qui répondre korrekt (1).

Habe es aussi sous Win2000 getestet: Gleiches Ergebnis.

Salut Bernd

Bernd
Kaiser

[quote-part:7d4281758b=iF]Deleteitem(Listview3&,Getlines(Listview3&)-1) peut-être?

Salve.[/quote-part:7d4281758b]
non, daran liegt es (diesmal) pas.

Deswegen habe je qui imprimer-Ausgabe incorporé, afin de voyons, si sich qui Zeilenzahl des Listviews dedans qui Boucle ändert. et cela fait vous plan pas.

Interpreter: 2 1 0 (chez 3 Zeilen im Listview)
Compiler: 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ... (plan endlos)

Sieht plutôt so aus, comme erhält cela Listview den Befehl zum Zeilenlöschen pas. Um cela trop überprüfen habe Je l' Code modifiziert:
Kompilieren Marque Séparation

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

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

ENDWH

je schaue heut vormittag la fois oui c'est ca - quand même devrait es plutôt:
Kompilieren Marque Séparation

While Getlines(Listview3&)

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

Endwh

heissen.

et
Kompilieren Marque Séparation

So habs probiert. Beide Varianten marcher chez mir korrekt:
Kompilieren Marque Séparation

While Getlines(Listview&)

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

Endwhil

Tandis que Getlines(Listview&)

    Deleteitem(Listview&,0)

Endwhile

important plus rapide cependant ist z.B.:
Kompilieren Marque Séparation

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

Whileloop c&

    Deleteitem(Listview&,0)

Endwhile

showwindow(listview&,1)

ou bien simple seulement:
Kompilieren Marque Séparation

DeleteAllItems(Listview&)

Salve, iF.

Jörg
Sellmeyer

quoi aussi très joli ist:
Kompilieren Marque Séparation

~LockWindowUpdate(ListView&)

WhileLoop GetLines(ListView&)

    Deleteitem(Listview&,0)

Wend

~LockWindowUpdate(0

Evtl. encore un RePaint ou bien UpDateListView ou bien comment cela est einbauen.
Dabei bleibt cela ListView sichtbar.

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

Frank
Abbing

et nochmal so ähnlich:
Kompilieren Marque Séparation

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

Whileloop Getlines(listview&)

    Deleteitem(listview&,0)

Wend

SendMessage(listview&,11,1,0

Bernd
Kaiser

allô iF,
cet variante funktioniert eh bien.

[quote-part:34846517f6=iF]
Kompilieren Marque Séparation

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

Whileloop c&

    Deleteitem(Listview&,0)

Endwhile

showwindow(listview&,1pan>

Salve, iF.[/quote-part:34846517f6]
quelquefois ist cet Profan voller Rätsel, pourquoi lief mon Code im Interpreter et im Compiler pas?

ca était wieder la fois une neue Erfahrung pour mich. eh bien suis je avec dem Programme ferig. ici déjà la fois meinen Dank à alle, qui je toujours la fois dans Anspruch pris habe.

Salut Bernd