Таблица, массив, цикл и ошибка

[Marsel737]

Всем доброго времени суток.

Никак не пойму, что не так. Есть массив из максимум восьми элементов, нужно сравнить эти элементы со столбцом таблицы. Т.е. если ячейка (6, 1) есть в массиве, то идём дальше, если нет, то заменяем всю строку на Not. И так со всем столбцом (6, 2), (6, 3) и т.д. до (6, 8). Вот код:

procedure TfrmMain.btnScanClick(Sender: TObject);
var
  I, J, K: integer;
  boolVNot: boolean;
begin
  for I := 1 to 8 do
  begin
    boolVNot := true;
    for J := 1 to 8 do
    begin
      if sgShow.Cells[6, I] = frmInput.arFunctionParts[J] then
        boolVNot := false;
    end;
    if boolVNot = true then
    begin
      for K := 0 to 7 do
        sgShow.Cells[K, I] := 'Not';
    end;
  end;
end;

[Neeter]

Не проверял, но, возможно, надо чуть подправить:

 for J := 1 to 8 do
    begin
      if sgShow.Cells[6, I] = frmInput.arFunctionParts[J] then
        boolVNot := false else boolVNot := true;
    end;

Попробуйте.

Хотя нет... Не то. Можете сказать, какая ошибка проявляется?

[Marsel737]

Neeter, нет так не пойдёт. Я проверяю ячейку со всеми элементами массива и если такого элемента в массиве нет, то тогда и зачёркиваю строку.

[Neeter]

Вот вы последний цикл начинаете с нуля. А почему же тогда первые два с единицы? Возможно, у вас в массиве нумерация с единицы, тогда все равно первый цикл (с счетчиком I) надо начинать с нуля, потому что он работает с таблицей, где нумерация с нуля:

procedure TfrmMain.btnScanClick(Sender: TObject);
var
  I, J, K: integer;
  boolVNot: boolean;
begin
  for I := 0 to 7 do
  begin
    boolVNot := true;
    for J := 1 to 8 do
    begin
      if sgShow.Cells[6, I] = frmInput.arFunctionParts[J] then
        boolVNot := false;
    end;
    if boolVNot = true then
    begin
      for K := 0 to 7 do
        sgShow.Cells[K, I] := 'Not';
    end;
  end;
end;

Если я не прав, то скажите хотя бы, какая ошибка проявляется?

[Marsel737]

Neeter, по номерам строк и номерам в массиве. всё тему можно закрывать, но Neeter, вам всё равно спасибо что откликнулись.

Ошибка была в том, что при заполнении таблицы у меня в одном случае буква "y" была обычной, в другом заглавной: yY, на первый взгляд незаметно.