Listbox [Delphi] - problem

Witam programistów!

Szukam dzisiaj rozwiązania problemu który mnie trapi od parenastu godzin.

Niestety bezowocnie.

Prosze o pomoc.

Otóż W pętli dodaje pewne liczby do Listbox’a, jednak po zakonczeniu petli pewne liczby sie powtarzają.

Czy jest mozliwosc dodania warunku, aby przed dodanie sprawdził program czy na liscie jest juz dana liczba (jesli nie - to dodawał ją, jeśli tak - to kontynuował nastepna pętle ??

Pozdrawiam, prosze o pomoc.

Zapodaj nam trochę kodu, może wtedy się coś dowiemy. (pamietaj o użycie znacznika

kod

)

.

.

.

begin

            r:=3;

            while (r<=z/2) do

            begin

            r:=r+s;

            if ((z mod r=0) or (z mod 3=0)) then break

            else

            begin

            if ((z>=a) and (z<=b)) then

            begin

               {tutaj warunek sprawdzający czy liczba jest juz na liscie}

            listbox1.items.add(floattostr(z));

            end;

            end;

            end;

.

.

.

Wszystko ładnie chodzi … ale brak mi warunku do sprawdzenia listy czy juz dany element sie znajduje na niej.

zerknij do dokumentacji listbox’a znajdz metodę która umożliwia “wyjęcie” elementu listboxa, przepętluj się przez każdy wpisany element w listboxie sprawdzając czy element[x] nie jest równy z tym który chcesz wrzucić. Zawsze możesz dodawać elementy do listboxa i osobno do tabelki sprawdzającej, a potem sprawdzać z tą tabelką, jeśli ci to ułatwi sprawę (chociaż to niezbyt ładne programowanie).

PS. straszny ten twój kod :slight_smile: