Поиск в TStringList'e

[Alex2391]

Имеются 4 списка: a,b,a1,b1.
Как узнать содержатся ли элементы списка a1 в списке а и элементы списка b1 в списке b одновременно, и сколько раз?

[Serge_Bliznykov]

1) задача достаточно неопределена.
допустим список A1 состоит из 'AA', 'AB', 'AA', 'AC', 'ab'
список A cостоит из элементов 'BA', 'AA', 'AB', 'AB', 'ab'

и сколько раз?

2) в любом случае решается это примерно так:

for i:=0 to a1.Count-1 do
  if a.IndexOf(a1.Strings[i])>=0 then {Нашли совпадение}

если списки большие и задача это допускает, то лучше отсортировать элементы в списках, где идёт поиск и использовать метод .Find:

a.sort;
for i:=0 to a1.Count-1 do
  if a.Find(a1.Strings[i], j) then {Нашли совпадение}

[Alex2391]

Поясняю.
Например, список а состоит из 'кг', 'кг', 'м'
список а1 из 'кг', 'м'
список b из 'А', 'с', 'с'
список b1 из 'с', 'с'.
Нужно узнать есть ли в списке а элементы списка а1, и в списке b элементы списка b1.
Если оба условия одновременно выполняются, то выполнить действие какое-нибудь.
В основном проблема с определением выполняются ли оба условия одновременно.

[Alex2391]

Люди плиз, помогите, очень надо!

[Serge_Bliznykov]

я же выше привёл готовый код?
в чём проблема?
если нужно и там и там найти,то:

  isFound_in_A:= false; 
  for i:=0 to a1.Count-1 do
     if a.IndexOf(a1.Strings[i])>=0 then {Нашли совпадение}
     begin
        isFound_in_A := true;
        break;
     end;

  isFound_in_B:= false; 
  for i:=0 to b1.Count-1 do
     if b.IndexOf(b1.Strings[i])>=0 then {Нашли совпадение}
     begin
        isFound_in_B := true;
        break;
     end;

if  isFound_in_A and isFound_in_B then 
  {оба условия одновременно выполняются}
  ....

[Alex2391]

в чём проблема?

Проблема в том, что в списке А1 может быть несколько одинаковых элементов, например 'с', а в списке А может находиться только один такой элемент.
Данный код будет выдавать true в любом случае, т.к. элемент 'с' имеется в списке А и его не волнует сколько этих же элементов в списке А1.
Нужно чтоб, было true если в списке А имеются все элементы списка А1.