Stringlist mit 80.000 Einträgen schnell durchsuchen

[jensw_2000]

Hallo zusammen,

ich habe eine Stringlist mit ca. 80.000 Einträgen, die ich während eines Datenimports je nach Anzahl der Datensätze zwischen 5000 und 20.000 mal durchsuchen muss.
Pro Datensatz dauert der Test etwa 0,5 - 0,8 Sekunden.
Gibt es eine Lösung, um das Vorhandensein eines Eintrags schneller zu prüfen als so .... ?

Delphi-Quellcode:

function IstGesperrt(SL:TStringlist;SuchString:String):Boolean;
begin
  if sl.IndexOf(Suchstring)>-1 then
    result:=true else
    result:=false;
end


// Verwendung

While not ImportDataset.eof do
begin
  if not IstGesperrt(ImportDataset.fieldbyname('Stringfeld')) then ... Machwas;
  ImportDataset.next;
end;

Schöne Grüße,
Jens