Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Items aus Listbox löschen


webmaker - Mo 27.01.03 20:54
Titel: Items aus Listbox löschen
Hallo
ich habe Frage zu einer listbox und zwar will ich, dass alle Items außer die die mit line beginnen gelöscht werden. Wie mache ich das? HAbt ihr etwas Code für mcih?


Tino - Mo 27.01.03 21:01

Hi,

in einer For-Next-Schleife gehst Du rückwärts alle Items durch:

Quelltext
1:
For i := ListBox1.Items.Count -1 DownTo 0 Do                    

dann prüfst Du nach ob die ersten vier zeichen nicht mit line übereinstimmen:

Quelltext
1:
If Copy (ListBox1.Items [i], 1, 4) <> 'line' Then                    

wenn das der Fall ist kannst Du es mit Delete löschen

Quelltext
1:
  ListBox1.Items.Delete (i);                    

Gruß
TINO


webmaker - Mo 27.01.03 21:04

danke. Das ging aber schnell.....