Подсчет элементов в StringGrid

[rainbow]

Доброго времени суток!
Возникла следующая проблема:
Необходимо подсчитать количество элементов в StringGrid за исключением областей, заданных в массиве TRect

var
massivobj: array of TRect; //координаты исключаемых областей
b,i,j,k,s:integer
begin
...........
// k - количество значений в массиве massivobj
s:=0; //обнуляем счетчик элементов
for i := 0 to StringGrid1.ColCount-1 do
for j := 0 to Stringgrid1.RowCount-1 do
for b:= 0  to k-1 do
if (i < massivobj[k].Left) and (i > massivobj[k].Right) //
and (j < massivobj[k].Top) and (j > massivobj.[k].Bottom) then
inc (s) //добавляем счетчик элементов
............
end;

Но счетчик элементов s почему то не срабатывает. Помогите пожалуйста! Спасибо!

[astecenko]

Операция логического умножения (and) будет давать ложь если один из аргументов ложь.
Ложь = 0, Истина = 1
Умножить что угодно на 0 будет 0

По логике i не может быть одновременно и меньше massivobj[k].Left и больше massivobj[k].Right и т.п. (хотя что именно Вы туда занесли - мне не ведомо)

Почитайте про логические операции в Delphi, булеву алгебру и правильно составьте условие для проверки.

Upd
Кстати переменную цикла b может всё же стоит использовать где-нибудь...

[evg_m]

а также

for b:= 0  to k-1 do
if (i < massivobj[k].Left) and (i > massivobj[k].Right) //

[rainbow]

Спасибо за советы.
Сделал так:

if (i<massivobj[b].Left) or ((i>=massivobj[b].Left) and (i<=massivobj[b].Right) and (j<massivobj[b].Top)) or
(i>massivobj[b].Right) or ((i>=massivobj[b].Left) and (i<=massivobj[b].Right) and (j>massivobj[b].Bottom)) then
inc(s);

Работает нормально, но только если k=1. При k>1 считает неправильно.

[astecenko]

А накрутили то :-D
Так не проще?

if ((i<massivobj[b].Left) or (i>massivobj[b].Right)) and ((j<massivobj[b].Top) or (j>massivobj[b].Bottom)) then
inc(s);

[rainbow]

Сообщение от astecenko

А накрутили то :-D
Так не проще?

if ((i<massivobj[b].Left) or (i>massivobj[b].Right)) and ((j<massivobj[b].Top) or (j>massivobj[b].Bottom)) then
inc(s);

Так пробовал, программа считала неправильно.
Работает при k=1 из за того, что программа суммирует счетчик s на каждую область (или элемент TRect) отдельно, необходимо сделать, чтобы это условие проверялось на весь массив TRect целиком а не только на текущий элемент b. Только как это сделать, пока в голову не приходит.

[astecenko]

Области в массиве TRect могут пересекаться?

[rainbow]

Сообщение от astecenko

Области в массиве TRect могут пересекаться?

Да, могут. Я вот и думаю как сделать. Пока ничего в голову не приходит, кроме как сделать двухмерный массив типа boolean размером StringGrid1.ColCount-1 на StringGrid1.RowCount-1, записать в него все значения true потом прогуляться по нему, и записать false там где эти области должны быть (или наоборот) и потом подсчитать количество элементов со значением true (или false), но это как то не очень хорошо получится.

[evg_m]

var inrect: boolean;
   
inrect:=false;
// проверяем ВХОЖДЕНИЕ в каждую из областей
for b:=0 to k-1 do
  if (i>=massivobj[b].Left) and (i<=massivobj[b].Right) and (j>=massivobj[b].Top) and (j>=massivobj[b].Bottom) then 
  begin
    irect:=true; // вошла в ОДНУ ИЗ областей!!!!
    break;
  end;

// инвертирование результата эквивалентно НЕ ВХОДИТ НИ В ОДНУ 
if not inrect then inc(s);

[rainbow]

Сообщение от evg_m

var inrect: boolean;
   
inrect:=false;
// проверяем ВХОЖДЕНИЕ в каждую из областей
for b:=0 to k-1 do
  if (i>=massivobj[b].Left) and (i<=massivobj[b].Right) and (j>=massivobj[b].Top) and (j>=massivobj[b].Bottom) then 
  begin
    irect:=true; // вошла в ОДНУ ИЗ областей!!!!
    break;
  end;

// инвертирование результата эквивалентно НЕ ВХОДИТ НИ В ОДНУ 
if not inrect then inc(s);

Так тоже не хочет нормально считать
Придется видимо через массив типа boolean делать.
Сделал так:

var
tabl: array of array of boolean;
................................................
s:=0;
Setlength(tabl,StringGrid1.ColCount,StringGrid1.RowCount);
for i := 0 to Length(tabl[0])-1 do
for j := 0 to Length(tabl)-1 do
tabl[i,j]:=false; //заполняем вспомогательный массив значениями false
for i := 0 to StringGrid1.ColCount-1 do
for j := 0 to Stringgrid1.RowCount-1 do
for b := 0 to k-1 do
if (i>=massivobj[b].Left) and (i<=massivobj[b].Right)
and (j>=massivobj[b].Top) and (j<=massivobj[b].Bottom) then tabl[i,j]:=true //если попадает в область записываем в соответствующий
//элемент массива tabl
for i := 0 to Length(tabl[0])-1 do
for j := 0 to Length(tabl)-1 do
if not tabl[i,j] then inc(s); //если не входит в область, добавляем счетчик s
SetLength(tabl,0,0); //очищаем память tabl

Вроде нормально работает.