XProfan

Frank
Abbing

Hi.
Kompilieren Marca Separación

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

Dazu muss aber el Listview_Funktionen.inc eingebunden ser. Hierin verstecken se todavía allerhand Definitionen y Messages, el en el Ayuda nada beschrieben son...

22.07.2005 ▲

El imprimir-Anweisung Yo sólo a Kontrolle instalado, el Valor ändert se no y por lo tanto se el Bucle no verlassen.

Nebenbei: El Listview_Funktionen.inc se en el Hauptprogramm eingebunden, el obige Función en uno INC-Expediente ausgeführt. Den Interpreter stört el no.

Mi Ausstattung: Win98SE, Profano 7.5

¿Tiene un Erklärung dafür?

Saludo Bernd

Bernd
Kaiser

¡Hola Franco,

mein Projekt nähert se el Ende, el Compiler es geölt y letzte Tests laufen. Und siehe como, el Programa rennt en uno Endlosschleife umher. Mit el Interpreter hats prima funktioniert, compiliert es no.

El Listview_Funktionen.inc es eingebunden.
Kompilieren Marca Separación

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) tal vez?

Salve.

22.08.2005 ▲

Frank
Abbing

Hi,

genau, el -1 es wichtig. Computer fangen eben en NULL a a zählen

22.08.2005 ▲

Lt. el Listview_Funktionen.inc se el Ergebnis TRUE (1) oder FALSE (0) ser. Yo erhalte en EXE siempre el 0 como Antwort. Im Interpretermodus son el Respuesta korrekt (1).

Posesiones lo auch bajo Win2000 getestet: Gleiches Ergebnis.

Saludo Bernd

Bernd
Kaiser

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

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

Deswegen Yo el imprimir-Edición instalado, en a sehen, si el Zeilenzahl des Listviews innerhalb el Bucle ändert. Und el macht ellos eben no.

Interpreter: 2 1 0 (en 3 Zeilen en el Listview)
Compiler: 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ... (eben endlos)

Sieht más así de, como erhält el Listview el Befehl para Zeilenlöschen no. Um el a überprüfen Yo el código modifiziert:
Kompilieren Marca Separación

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

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

ENDWH

Yo schaue heut vormittag veces genau - trotzdem debería lo más:
Kompilieren Marca Separación

While Getlines(Listview3&)

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

Endwh

heissen.

y
Kompilieren Marca Separación

So habs probiert. Beide Varianten trabajo en me korrekt:
Kompilieren Marca Separación

While Getlines(Listview&)

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

Endwhil

Mientras que Getlines(Listview&)

    Deleteitem(Listview&,0)

Endwhile

bedeutend más rápido sin embargo es z.B.:
Kompilieren Marca Separación

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

Whileloop c&

    Deleteitem(Listview&,0)

Endwhile

showwindow(listview&,1)

oder simplemente sólo:
Kompilieren Marca Separación

DeleteAllItems(Listview&)

Salve, IF.

Jörg
Sellmeyer

Was auch muy schön es:
Kompilieren Marca Separación

~LockWindowUpdate(ListView&)

WhileLoop GetLines(ListView&)

    Deleteitem(Listview&,0)

Wend

~LockWindowUpdate(0

Evtl. todavía una RePaint oder UpDateListView oder como el heißt einbauen.
Dabei restos ListView sichtbar.

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

Frank
Abbing

Und otra vez así ähnlich:
Kompilieren Marca Separación

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

Whileloop Getlines(listview&)

    Deleteitem(listview&,0)

Wend

SendMessage(listview&,11,1,0

Bernd
Kaiser

Hola si,
esta Variante funktioniert nun.

[quote:34846517f6=iF]
Kompilieren Marca Separación

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

Whileloop c&

    Deleteitem(Listview&,0)

Endwhile

showwindow(listview&,1pan>

Salve, IF.[/quote:34846517f6]
Manchmal es dieses Profano voller Rätsel, por qué lief mein Code en el Interpreter y en el Compiler no?

Dies war otra vez veces una neue Erfahrung para mich. Nun bin I, con el Programa ferig. Hier ya veces media Dank a todos, el Yo siempre veces en Anspruch genommen habe.

Saludo Bernd