ListView Komponente mit leben erfüllen und Bearbeiten

[Matze]

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;