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