StringList schnell nach mehreren Strings durchsuchen

[xZise]

Was hälst du davon einzurücken?

Delphi-Quellcode:

function SeekStrings(List: TStringList;strs: TStringList): TStringList;
var
  i,j,k: integer;
  tmp: TStringList;
begin
  tmp:=TStringList.Create;
  for i:=0 to strs.Count-1 do begin
    k:=0;
    for j:=0 to List.Count-1 do begin
      if pos(strs[i],List[j])>0 then
        Inc(k);
    end;
    tmp.Add(IntToStr(k));
  end;
  Result:=tmp;
end;

Entferne mal die "IntToStr" Zeile Ich glaube dass die einzige Zeitbenötigende Zeile ^^

Ansonsten:
.IndexOf('String') durchsucht eine Liste nch den String (caseinsensetive).