mein Vergleichen von Strings --> Bewertung

[Ghostwalker]

Delphi-Quellcode:

    lsbplaylist.ToLowercase;
    idx := lsbplaylist.IndexOf(ansilowercase(edsuchen.text),0);
    while (idx > 0) do
    begin
      lsbSuche.Items.Add(lsbPlaylist.Items.Strings[i]);
      idx := lsbplaylist.IndexOf(ansilowercase(edsuchen.text),idx+1);
    end;