Czy istnieje dany element

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;
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

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