Zeile in Listbox löschen ?

[thomas2009]

Hallo

ich möchte nach dem Löschen einer Zeile in ListBox1 die Zeile nach oben verschieben,
damit keine Lücke ensteht. Wie kann ich das Problem lösen ?

[inherited]

Wenn i der Index des zu löschenden Elements ist und lb deine listbox, dann einfach

Delphi-Quellcode:

  lb.items[i] := '';
  for a := i to lb.items.count -2 do
  begin
    lb.items[a] := lb.items[a+1];
  end;
  lb.items.delete[lb.items.count-1];

oder viiiieeeel einfacher :)

Delphi-Quellcode:

  lb.items.delete(i);