listbox sortieren

[inzzi]

hi leute... ich hab folgendes problem

ich habe eine listbox und 4 buttons ...

• eintrag an erste stelle
  eintrag 1 stelle nach oben
  eintrag an letzte stelle
  eintrag 1 stelle nach unten

die verschiebung um 1 stelle hab ich bereits
... aber wie sieht das jetzt aus wenn ich einen eintrag an die erste/letzte stelle setzen will und die anderen einträge automatisch 1 stelle nachrücken ?! wie würde das mit einer for-schleife aussehen, wenns möglich wär ?!

thx in advance .. inzzi

[scp]

Hmm... Ich weis jezt nicht genau was du meinst. Wenn du mit ListBox1.Items.Add('Ein Text') einen Eintrag an letzter Stellen einfügst, wo sollen denn da noch die anderen hinrutschen? Und wenn du einen Eintrag mit ListBox1.Items.Insert(0, 'Ein Text') an erster Stelle einfügst, dann rücken die anderen Einträge doch automatisch eins nach unten.

Beim Verschieben gehts so z.B.

Delphi-Quellcode:

TempStr := ListBox1.Items[123]
ListBox1.Items.Delete(123);
ListBox1.Items.Add(TempStr);

bzw.

Delphi-Quellcode:

TempStr := ListBox1.Items[123]
ListBox1.Items.Delete(123);
ListBox1.Items.Insert(0, TempStr);

[r_kerber]

Hallo inzzi,

die Listbox-Items sind vom Typ TStrings. Und diese Klasse hat die Methode Move. Scha einfach mal in der OH nach!

[inzzi]

was ich noch vergessn habe .. ich adde die files aus einer .txt file mit opendialog ... sry scp ... =)
und ich möcht wenn ich den eintrag an die letzte bzw. erste stelle setze das alle anderen einträge nachrücken .. sprich ihr itemindex automatisch verändert wird ...

[inzzi]

ok das hat nun funktioniert .. danke kerber ...

jetzt möchte ich noch 2 buttons machen mit denen ich den markierten eintrag
a) mit dem letzten eintrag VERTAUSCHE
b) mit dem ersten eintrag VERTAUSCHE


sry wenn ich nerv =) ... aber is rein übersmäßig für die schule ... und bin (leider) noch kein profi was delphi angeht ... aber ich arbeite an mir =)

thx schon mal, inzzi =)