ListView - Item und Subitems verschieben

[THE MATRIX]

Hi leutz
weiß jemand, wie ich einen Bestimmten Item eintrag ( und dessen SubItems ) aus einer ListView ans Ende der listview bringe ? ( Ich möchte nicht mit der maus ziehen )

MoveSelected hab ich probiert, allerdings verschiebt er mir dann nur das Item nicht dessen SubItems :(

[Tpercon]

Delphi-Quellcode:

NewItem := Items.Insert(anwelchepositionsolldas);
NewItem.Assign(CurrentItem);
CurrentItem.Delete;

CurrentItem ist das Item, was zu verschieben ist.

[THE MATRIX]

hmm dass will nicht wirklich ... hier mal der source

Delphi-Quellcode:

var
 I:Integer;
 tmp:string;
 NewItem : Tlistitem;
begin
for I := 0 to ListView1.Items.Count-1 do
 begin
  tmp := ListView1.Items.Item[i].SubItems.Strings[0];
  Delete(tmp,7,Length(tmp));
  LowerCase(tmp);
  if tmp = 'eigene' then
   with ListView1 do 
    begin
     MoveSelection(ListView1);
     NewItem := Items.Insert(ListView.Items.Count-1);
     NewItem.Assign(ListView1.Items.Item[i]);
     ListView1.Items.Item[i].Delete;
    end;
 end;

Also in der listview sind mehrer Items und Subitems wenn das Subitem mit "eigene" anfängt soll DIESE item + subitems ans ENDE der listview gackt werden.
BSP. DER LISTVIEW:
Column 1 | Column 2 | Column 3
blabla | lustiges | blabla...
bla | eigene bilder| blabla...
lil | blblbl | blabla...

so jetzt soll halt die Komplette 2 Zeile ans Ende verschoben werden ....

[Tpercon]

So, jetzt müßte es gehen:

Delphi-Quellcode:

var
I:Integer;
tmp:string;
NewItem : Tlistitem;
begin
for I := 0 to ListView1.Items.Count-1 do
begin
  tmp := ListView1.Items.Item[i].SubItems.Strings[0];
  LowerCase(tmp);
  if AnsiPos('eigene',tmp) <> 0 then
   with ListView1 do
    begin
     NewItem := Items.Insert(ListView1.Items.Count);
     NewItem.Assign(ListView1.Items.Item[i]);
     ListView1.Items.Item[i].Delete;
    end;
end;

Gruß

[THE MATRIX]

JO SUPI SO GEHTS :dancer2:

BiG THX