Delphi-PRAXiS - Delphi Listenitem verschieben

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Listenitem verschieben (https://www.delphipraxis.net/1771-listenitem-verschieben.html)

CalganX

22. Dez 2002 18:02

Listenitem verschieben

Hi,
ich habe zwei Listen:
1. ListBox1.Items (TStrings);
2. FileList (TStringList);
In der ListBox stehen nur die Dateinamen, die aus den Pfaden in der FileList kommen (müssen somit immer gleich sein von den Positionen).

Nun habe ich noch einen SpinButton auf dem Form. Wenn auf "Up" geklickt wird, soll das aktuelle Item in beiden Listen eins aufwärts gebrachten werden ("Down" dem entsprechend andersrum).
Was tun?

Chris

RomanK

22. Dez 2002 18:12

Bei ListBox1.Items (TStrings):

Delphi-Quellcode:

			listbox1.Items.Move(listbox1.ItemIndex,listbox1.ItemIndex-1);// wenn es ganz oben ist ist es nachher ganz unten!!!!
		

und bei
FileList (TStringList) mit :

Delphi-Quellcode:

filelist.Exchange(listbox1.ItemIndex,listbox1.ItemIndex-1);

PS: Das hat mich nur einen kleinen Blick in die Hilfe gekostet :zwinker:

CalganX

23. Dez 2002 10:34

Laüft einigermaßen. Das Problem: Es kommt immer ein Fehler "ListIndex out of bounds(-1)" Obwohl etwas makiert ist...

Chris

Alle Zeitangaben in WEZ +1. Es ist jetzt 04:02 Uhr.