请问在listview中如何将一个选定的纪录移到底部？

Question

如提：如何将一个item移动到底部？解决了有分。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(ListView1.Selected) then Exit;
  ListView1.Items.Add.Assign(ListView1.Selected);
  ListView1.Selected.Delete;
end;

Answer 2

//看通过排序的方法行不？～～
uses Math;procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(ListView1.Selected) then Exit;
  ListView1.Selected.Data := Pointer(Trunc(Time * 100000));
  ListView1.AlphaSort;
end;procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  Compare := Sign(Integer(Item1.Data) - Integer(Item2.Data));
end;