Delphi как провести поиск по двум различным массивам?

Question

[slowkazak]

Добрый день. Есть вот такой кода:

var
m : Integer;
  WorkSheet: OLEVariant;
  FData: Variant;
begin

ExcelApp.Workbooks.Open(filez.Text);
WorkSheet := ExcelApp.ActiveWorkbook.ActiveSheet;
FData := WorkSheet.UsedRange.Value;
SQLQuery.SQL.Text :='SELECT `sklad`.tovar_id FROM `sklad`';
SQLQuery.Active := true;
SQLQuery.Open;
...
SQLQuery.Close;

Подскажите, пожалуйста, каким образом если максимально быстро найти совпадающие элементы у SQLQuery после его выполнения (SQLQuery1.FieldByName('tovar_id')) и FData[m, 1] (где m - строка в массиве а 1 - столбец) при том что по количеству полученных строк у результата SQLQUERY и FData могут быть не равны?

Answer 1

[Rsa97]

Создать ещё один массив, перенести туда данные из запроса, отсортировать оба массива, пройти по обоим одновременно со сравнением данных.