Поменять местами итемы в ListView

[sinuke]

Доброго дня, форумчане

Возникла проблема с тем, чтобы поменять местами два итема в ListView. ListView.Items не имеет метода Exchange, сами итемы не имеют метода Assign чтобы можно было один итем клонировать в другой / удалить / вставить

У кого какие мысли? Как реализовать?

Delphi 10.2 Tokyo

 

[Равиль Зарипов (ZuBy)]

а разве не сработает?

Item1 := Item2;

 

[sinuke]

6 минут назад, Равиль Зарипов (ZuBy) сказал:

а разве не сработает?

Item1 := Item2;

 

неа, не работает. вот код, эффекта ноль:

var
  Source: TListViewItem;
  Target: TListViewItem;
  Third: TListViewItem;
begin
  ListView1.BeginUpdate;
  Source := ListView1.Items[0];
  Target := ListView1.Items[1];
  Third := Target;
  Target := Source;
  Source := Third;

  //ListView1.Items[0] := Target;
  //ListView1.Items[1] := Source;
  ListView1.EndUpdate;
end;

а если раскомментировать строчки, то вообще ошибка, потому как итемы read-only

[sinuke]

В общем, сделал пока вот так:

var
  Source: TListViewItem;
  Target: TListViewItem;
begin
  ListView1.BeginUpdate;

  Source := ListView1.Items[0];
  Target := ListView1.Items.Insert(1);

  Target.Text := Source.Text;
  Source.Text := ListView1.Items[2].Text;
  ListView1.Items.Delete(2);

  ListView1.EndUpdate;
end;

В этом случае придется вручную копировать содержимое каждого итема. Кому интересно, вот тестовый проектик с перетаскиванием итемов мышью

Demo.zip

Ну а если кто может предложить вариант получше, не стесняйтесь

[dnekrasov]

А можно ещё так:

  ListView1.Items[0].Index := 1;
  ListView1.Items[1].Index := 0;
  ListView1.Items.Sort(TComparer<TListViewItem>.Construct(
    function(const ALeft, ARight: TListViewItem): Integer
    begin
      Result := ALeft.Index - ARight.Index;
    end));

Поменять-то поменяет, только на сколько обоснован вызов Sort в этой ситуации - решать Вам.

Изменено 14 июля, 2017 пользователем dnekrasov