[The Shadow]

Сообщение от <<D>>

Обернуть выделение:

Код:

procedure TForm1.Button1Click(Sender: TObject);
   var i:integer;
begin
   for i:= 0 to listview1.Items.Count-1 do
     begin
       if listview1.Items.Item[i].Selected then
       listview1.Items.Item[i].Selected:=false
       else listview1.Items.Item[i].Selected:=true;
     end;
   end;

Легче сделать так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var 
i: Integer;
begin
for i:=0 to ListView1.Items.Count-1 do
ListView1.Items.Item[i].Selected:=not ListView1.Items.Item[i].Selected;
end;