Was haltet ihr denn davon. Ist das eine Lösung?
Speeding Up Delphi's TStringList.IndexOf
Ich nutze nun
Delphi-Quellcode:
function IndexOfListObjects(const sTmp: string; List: TStringListEx): Integer;
begin
// for Result := 0 to List.Count - 1 do
// if sTmp = PFileListEntry(List.Objects[Result])^.sFileName then
if not List.Find(sTmp, Result) then
Result := -1;
end;