Einzelnen Beitrag anzeigen

Pfoto

Registriert seit: 26. Aug 2005
Ort: Daun
541 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: Mehrere Listbox Einträge löschen

  Alt 5. Mär 2007, 14:11
Hi!

ich würde es so machen:

Delphi-Quellcode:
var
  i: integer;
begin
  i:= 0;
  repeat
    If Listbox1.Selected[i] then
      Listbox1.Items.Delete(i) else
      inc(i);
  until (i = Listbox1.items.count);

Gruß
Pfoto
Jürgen Höfs
  Mit Zitat antworten Zitat