Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

REA © (2006-11-22 17:36:00)
Пока что изобрел такой код для обмена двух элементов 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-23 12:22:00) [1]

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

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

REA (2006-11-23 12:01:00) [2]
Ну это если нет способов вроде Exchange, SetIndex или Extract-Insert.

Anatoly Podgoretsky (2006-11-23 11:55:00) [3]
> REA (23.11.2006 11:31:04) [4]

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

Сергей М. (2006-11-23 11:55:00) [4]

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

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

REA (2006-11-23 11:52:00) [5]
Примерно тоже самое и получится, но придется еще все свойства присваивать. Опять же не без промежуточного элемента.

umbra (2006-11-23 11:49:00) [6]
да, что-то я увлекся. Но есть же методы TListItems.AddItem и TListItems.Delete, которых, вроде, достаточно для решения задачи.

REA (2006-11-23 11:31:00) [7]
Спасибо, но тогда уж проще способ [0].

Сергей М. (2006-11-23 11:24:00) [8]

> REA

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

REA (2006-11-23 11:08:00) [9]
Сам то пробовал?
property Index: Integer read GetIndex;

umbra (2006-11-22 19:22:00) [10]
так лучше?
Selected.Index := Selected.Index - 1;

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »