Access violation beim Löschen von Listview-Einträgen

[Der.Kaktus]

das geht, habs probiert..

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,i1:integer;
SArray:Array[0..20] of byte;   //nur mal als Bsp. die 21 Bytes
begin
 i1:=0;
 for i:=0 to 20 do SArray[i]:=0; //loeschen
 for I := 0 to ListView1.Items.Count - 1 do
 begin
// Try mal weggelassen
  if ListView1.Items[I].Selected then
  begin
   SArray[i1]:=i;
   inc(i1);
  end;
 end;
 For i:=i1-1 downto 0  do ListView1.Items[SArray[i]].delete;
end;

gruss

[Union]

SArray:Array[0..20] of byte Und wenn die ListView mehr als 256 Einträge hat?

[Der.Kaktus]

da steht doch "als Bsp."..kannst auch Array[0..4096] machen
ging doch erstmal um nen Ansatz

[DeddyH]

Der Ansatz mit der absteigenden Schleife ist doch OK (solange nur ein Eintrag je Durchlauf gelöscht wird), Ihr braucht Euch nicht mehr zu streiten

[Union]

@der.Kaktus

Zitat von Union:

SArray:Array[0..20] of byte Und wenn die ListView mehr als 256 Einträge hat?

Die Anzahl der Elemente ist kein Problem, aber die Speicherung des Itemindex in einem Byte schon - das läuft dann nämlich über. Und das sogar schob evtl. beim ersten Element, wenn das erste selektierte Item > 256 ist. Die Folge wäre die Löschung von falschen Elementen!

[Der.Kaktus]

dann koennte ich Array of Integer empfehlen.

[Larsi]

Nur so als Frage: Kann man nicht gleich Items.Destroy sagen? Er will doch alle Items löschen, oder???

[mkinzler]

Zitat von Larsi:

Nur so als Frage: Kann man nicht gleich Items.Destroy sagen? Er will doch alle Items löschen, oder???

Nein, nur die selektierten

[Muetze1]

/EDIT: TListView.DeleteSelected() ?

[DeddyH]

*Pah* wie langweilig, da find ich die ganze (unnötige) Diskussion spannender