mein Vergleichen von Strings --> Bewertung

[Aurelius]

Hallo DPler

Ich vergleiche die Einträge meiner Listbox mit einem text im Suchfeld. Jetzt würde ich gerne von euch wissen ob diese Lösung effektiv ist oder ob man es besser machen kann.

Ach ja, das Ganze geschiet im OnChange des Edit-Feldes.

Delphi-Quellcode:

lsbSuche.Clear;
if length(edSuchen.Text)>= 1 then
begin
 for i := 0 to lsbPlaylist.Count - 1 do
  if  ansipos(ansilowercase(edSuchen.Text),ansilowercase(lsbPlaylist.Items.Strings[i])) 
  = 1 then
   lsbSuche.Items.Add(lsbPlaylist.Items.Strings[i])
end;