Delphi how to search through two different arrays?

Question

Delphi

Good afternoon. There is this code:

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;

Can you please tell me how to find matching elements in SQLQuery as quickly as possible after its execution (SQLQuery1.FieldByName('product_id')) and FData[m, 1] (where m is a row in the array and 1 is a column) while the number of rows received in the result of SQLQUERY and FData may not be equal?

Answer 1

Create another array, transfer the data from the request there, sort both arrays, go through both at the same time comparing the data.