¿Alguna forma de desordenar un ListView?

[ecfisa]

Hola wolfran_hack.

Empezado por wolfran_hack

alguna forma de desordenar un listview? delphi 7

¿ Algo así ?

Código Delphi [-]
procedure MergeLVItems(ListView: TListView; const Rounds: Integer);
var
  i, x, y: Integer;
  tmp: TListItem;
begin
  Randomize;
  with ListView do
  begin
    for i := 1 to Items.Count * Rounds do
    begin
      Items.BeginUpdate;
      try
        tmp := TListItem.Create(Items);
        try
          x := Random(Items.Count);
          y := Random(Items.Count);
          tmp.Assign(Items[x]);
          Items[x].Assign(Items[y]);
          Items[y].Assign(tmp);
        finally
          tmp.Free;
        end;
      finally
        Items.EndUpdate;
      end;
    end;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  MergeLVItems(ListView1, 3);
end;

Saludos