Wenn man in IndexOf und Find reinschaut, sieht man, dass da noch ziemlich vieles gemacht wird, um zum Vergleichsergebnis zu kommen.
Hier wird aber doch "nur" ein einfacher Vergleich auf Übereinstimmung von Zeichenfolgen in 'ner sortierten Stringliste benötigt.
Wie wäre es denn, hier einfach mal 'ne eigene Suchroutine zu schreiben, der die Stringliste übergeben wird und die als Rückgabewert den Index des gesuchten Eintrages der Stringliste liefert.
Ungetestet und nur hingedaddelt, daher ohne jegliche Garantie für irgendwas, sondern nur als Idee für's eigene Ausprobieren:
Delphi-Quellcode:
function BinSearch(Suche : String; Start : Integer; Ende : Integer; sl : TStringList) : Integer;
var
Mitte : Integer;
begin
Mitte := Start + ((Ende - Start) div 2);
if Suche <= sl[Mitte] then Result := BinSearch(Suche, Start, Mitte, sl)
else Result := BinSearch(Suche, Mitte, Ende, sl);
end;
Hier fehlt zum Beispiel noch die Prüfung, ob der Suchbegriff überhaupt in der Stringliste vorkommt, also ist
sl[BinSearch('ASDF',0,sl.Count - 1,sl) = 'ASDF';
Könnte daraus eventuell dann sowas werden?
Delphi-Quellcode:
function IndexOfListObjects(const sTmp: string; List: TStringList): Integer;
begin
Result := BinSearch(sTmp,0,List.Count - 1,List);
if List[Result] <> sTmp then Result := -1;
end;