问两个关于Delphi中ListView的问题

Question

我在程序中用了一个ListView，将其ViewStyle属性设为vsReport,MultiSelect属性设为true,但当我用ListView1.Selected.Delete删除所有选中项（多选）时，只能删除选中的第一项，不能将所有选中项都删除。大家有什么办法？
   另我有变量var Items:TListItems有如下代码Items:=ListView1.Items和
ListView1.Items:=Items目的是实现取消修改（ctrl+z）的功能，但每次将变量Items赋回ListView1老是为空，不知什么原因。我用ListView2.Items:=Items实现两个ListView内容的拷贝是可以的。要实现取消修改（ctrl+z）的功能不知各位还有什么高招。

Answer 1

MultiSelect 为 True 时，Selected 属性返回的是第一个选中的项目，其余的项目应该用 ListView1.GetNextItem 函数返回。
关于 GetNextItem 可以看看 Delphi 的帮助。