2 Einträge in einem TListeView tauschen

[Phoenix]

Das kann so nicht klappen. Das Problem dabei ist, das der Index nicht vom Container sondern von den Elementen selber verwaltet wird. ISt ein wenig komplex, aber schau Dir vielleicht mal den Source von TList und TListItem an um Dir das zu gemüte zu führen.

Ich löse das so:

Delphi-Quellcode:

// exchange entries
//
procedure TForm1.exchangeEntries(const i, j: integer);
var
   l_Item: TListItem;
begin
   // do not exchange if a item does not exist
   if not checkItems(i,j) then // hier wird nur geprüft ob die items i und j der liste auch assigned sind...
      exit;

   lstListView.Items.BeginUpdate;

   l_Item := TListItem.Create(lstListView.Items);
   try
      // store item
      l_Item.Assign(lstListView.Items.Item[i]);

      // exchange items
      lstListView.Items.Item[i].Assign( lstListView.Items.Item[j] );
      lstListView.Items.Item[j].Assign( l_Item );
   finally
      l_item.Free;
      lstListView.Items.EndUpdate
   end;     
end;