[Fahrenheit]

День добрый.Возникла проблемка...Есть программа...она создаёт два файла в формате xls.Потом данная программа загружает эти два файла.Поочерёдно....вот функция загрузки:

function Excel_To_StringGrid(AGrid: TStringGrid;AXLSFile: string): Boolean;
const
  xlCellTypeLastCell = $0000000B;
var
  Excel, Sheet: OLEVariant;
  RangeMatrix: Variant;
  x, y, k, r: Integer;
begin
  if not VarIsEmpty(Excel) then begin
 Excel.Quit;
 Excel := Unassigned;
end;
try
Excel:=CreateOleObject('Excel.Application');
Excel.Visible := False;
Excel.Workbooks.Open(AXLSFile);
Sheet := Excel.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1];
Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
x := Excel.ActiveCell.Row;
y := Excel.ActiveCell.Column;
AGrid.RowCount := x+1;
AGrid.ColCount := y+1;
RangeMatrix := Excel.Range['A1', Excel.Cells.Item[X, Y]].Value;
k := 1;
    repeat
      for r := 1 to y do
        AGrid.Cells[(r), (k)] := RangeMatrix[K, R];
      Inc(k, 1);
      AGrid.RowCount := k + 1;
    until k > x;
RangeMatrix := Unassigned;
 finally

    if not VarIsEmpty(Excel) then
    begin

      Excel.Quit;
      Excel := Unassigned;
      Sheet := Unassigned;
      Result := True;
    end;
  end;
end;

Вот вид файл которые программа создаёт:
Файлы.rar
Так вот в чём вопрос.У двух файлов есть общее значение.Это Поставщик.И нужно когда идёт загрузка поставщиков в программу то что-бы она в функции проверяла совпадение этого значения и сопоставляла строки в StringGrid.Как это сделать не смог найти.

[Страдалецъ]

Т.е. если я правильно понял, нужно на основе 2 таблиц постороить третью, которая содержит общие данные сгрупированные по поставщикам?
Если это так, то мне кажется лучше обращатся к таблицам через ADO. Тогда запрос на объединение с группировкой вам поможет получить 3 таблицу.

[Fahrenheit]

Хм..проблематично сказать про третью..так как они грузятся поочерёдно... сначала таблица товар в StringGrid потом Поставщики....и вот когда поставщики грузятся нужно сделать проверку...