Czy istnieje dany element

Odpowiedz Nowy wątek
2006-11-25 23:57

Rejestracja: 14 lat temu

Ostatnio: 12 lat temu

0

Mam tu kod który sprawdza czy w TStringList znajduje się podany element a jeśli nie to go dodaje. Lecz niektóre elementy dodaje parę razy. Czy może wie ktoś gdzie popełniłem błąd???

procedure TOkno.dodajGrupe(s:string);
var i : integer;
    tak : boolean;
begin
     tak := (ListaGrup.Count = 0);
     for i := 0 to ListaGrup.Count -1 do
     begin
          if s <> Lowercase(ListaGrup[i]) then
          begin
            tak := true;
            break;
          end else tak := false;
     end;
     if tak then
     Listagrup.Add(S);
end;

Pozostało 580 znaków

2006-11-26 00:06

Rejestracja: 16 lat temu

Ostatnio: 7 lat temu

0

tak - nie sprawdziłeś metod TStringList - IndexOf, Find http://www.delphibasics.co.uk/RTL.asp?Name=TStringList to odnośnie wyszukiwania, natomiast jeśli chodzi o ignorowanie duplikatów to poczytaj o właściwości Duplicates i dokładnie przeczytaj o niej w helpie


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Pozostało 580 znaków

Odpowiedz

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