¿Alguna forma de desordenar un ListView?

[wolfran_hack]

alguna forma de desordenar un listview? delphi 7

[[nlsgarcia]]

wolfran_hack,

Empezado por wolfran_hack

...¿Alguna forma de desordenar un ListView?...

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

Nelson.

[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

[[AgustinOrtu]]

Ordenándolo de otra manera

Adhiero al comentario de Nelson

[Casimiro Notevi]

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