Как обменять два TListItem?

← →
REA (2006-11-22 17:36) [0]

Пока что изобрел такой код для обмена двух элементов ListView. Изврат какой то. Нет ли чего попроще?

Tmp := TListItem.Create(Items);
Try
Tmp.Assign(Selected);
Ind := Selected.Index;
Items.Item[Ind].Assign(Items.Item[Ind-1]);
Items.Item[Ind-1].Assign(Tmp);
Finally
Tmp.Free;
End;

← →
umbra © (2006-11-22 19:22) [1]

так лучше?
Selected.Index := Selected.Index - 1;

Надо просто присвоить нужное значение свойству Index

← →
REA (2006-11-23 11:08) [2]

Сам то пробовал?
property Index: Integer read GetIndex;

← →
Сергей М. © (2006-11-23 11:24) [3]

> REA

Используй ListView в виртуальном режиме

← →
REA (2006-11-23 11:31) [4]

Спасибо, но тогда уж проще способ [0].

← →
umbra © (2006-11-23 11:49) [5]

да, что-то я увлекся. Но есть же методы TListItems.AddItem и TListItems.Delete, которых, вроде, достаточно для решения задачи.

← →
REA (2006-11-23 11:52) [6]

Примерно тоже самое и получится, но придется еще все свойства присваивать. Опять же не без промежуточного элемента.

← →
Anatoly Podgoretsky © (2006-11-23 11:55) [7]

> REA (23.11.2006 11:31:04) [4]

Классика, универсально.

> Опять же не без промежуточного элемента

А без него в exhange-подобных операциях над списками никак не обойтись.

← →
REA (2006-11-23 12:01) [9]

Ну это если нет способов вроде Exchange, SetIndex или Extract-Insert.

> Примерно тоже самое и получится, но придется еще все свойства
> присваивать.

почитайте справку по TListItems.AddItem и поймете, что свойств присваивать не надо

Как обменять два TListItem? Найти похожие ветки