Du hast ausversehen einen ':' statt einen '.' geschrieben, das meinte CCRDude.
Das hier
Delphi-Quellcode:
procedure TForm1.BitBtn3Click(Sender: TObject); //Löscht makierten eintrag
var i:Integer;
begin
for i := 0 to ListView1.Items.Count -1 do
if ListView1.Items[i].Selected then
ListView1.Items.Delete(i);
end;
wird nicht klappen, da du die Einträge beim Durchlauf entfernst und du die Schleife so verkürzen müsstet, da diese zu weit laufen würde (eine
Exception wäre die Folge). Nimm lieber
ListView1.DeleteSelected;
Edit:
Wenn ich es richtig in Erinnerung habe, ist das hier
ListItem:=TlistItem.Create(ListView1.Items);
nicht richtig und sollte so aussehen
ListItem := ListView1.Items.Add;