Bei langen Stringlisten verwende ich zum Suchen nicht "IndexOf".
Folgender Code ist bei mir viel schneller (warum auch immer?):
Delphi-Quellcode:
function InLst(lst: TStrings; s: String): Integer;
var i : Integer;
begin
result := -1;
for i := 0 to lst.Count - 1 do
if lst[i] = s then
begin
result := i;
Break;
end
end;
Gruß
Klaus