Hallo,
Stehe im Moment auf dem Schlauch.
Wie löscht man zuverlässig Leer-Einträge in der ListboxListe ?
Code
Declare Memory Bereich
Declare String zeile
Dim Bereich, 100
String Bereich, 0 = "Kirschen", "Bananen", "Äpfel", "Pflaumen", "Orangen"
Move("MemToList", Bereich, Chr$(0))
Print GetCount(0) -1
WhileLoop 0, GetCount(0) - 1
zeile = GetString$(0, &LOOP)
If zeile = ""
DeleteString(0, &LOOP)
EndIf
EndWhile
Print GetCount(0) -1
Listbox$("", 2)
WaitKey
Dispose Bereich
End
Alles anzeigen
Da zeigt mir das erste GetCount(0) 64 und das nachfolgende hinter der Schleife
34 an. Also werden nur 30 statt 59 gelöscht, was auch Listbox$ anzeigt.