¿Alguna forma de desordenar un ListView?
 

alguna forma de desordenar un listview? delphi 7

wolfran_hack,

:rolleyes:

Pregunto : ¿Podrías explicar con mas detalle tu requerimiento? :confused:

Nelson.

Hola wolfran_hack.
¿ 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 :)

Ordenándolo de otra manera :)

Adhiero al comentario de Nelson

[ironic mode] ¿No usando un ordenador? :p [/ironic mode]