Listbox ciagle przesuwanie

0

Witam.
Czy ktoś wie jaki kod może przesunąć item z listboxa na ostatnią pozycje??
Oto krótki przykładzik.

plik.txt ma taką zawartość:

Kolumna
podatki
działki
oprocentowanie
zaliczka

Teraz chcĘ przesunąć "podatki" na ostatnią pozycje ale doiero w listboxie. czyli listbox bedzie wygladal tak:

Kolumna
działki
oprocentowanie
zaliczka
podatki


Jak widać listbox i plik.txt różnią się.
ja <ort>chcĘ</ort> w listboxie <ort>po prostu</ort> ort! na ostatnią pozycje item znając
string :P PLZ help...

0
  ListBox1.Items.Exchange(ListBox1.Items.IndexOf('podatki'), ListBox1.Items.Count - 2);
0

Dzieki za odpowiedz niestety jak zabezpieczyc przed bledem gdy w pliku nie ma danej linijki ?? i zeby dodac ja wtedy na koniec ?

0

Najprościej to tak :

if Pos('podatki', ListBox.Items.Text) < 1 then ListBox1.Items.Add('podatki');
0

Najprościej to tak :

if Pos('podatki', ListBox.Items.Text) < 1 then ListBox1.Items.Add('podatki');

A może lepiej:

with ListBox1.Items do
  if IndexOf('podatki') = -1 then
    Add('podatki');

Metoda IndexOf() zwraca numer (indeks) danego elementu w liście (w tym wypadku łańcucha znaków :) ) lub -1 jeśli elementu nie ma na liście.

1 użytkowników online, w tym zalogowanych: 0, gości: 1