Сверка значений в 2-х StringGrid-ах

[artemavd]

Доброе утро! Есть 2 таблицы StringGrid. Нужно произвести сравнение двух столбоц на наличие одинаковых между собой значений. Если какое-то значение есть и в той и в другой таблице, то выделить, например, зеленым цветом это значение в обоих таблицах. Если в одной таблице есть значение, а во второй его нет, то это значение выделить, например, красным. Как такое можно реализовать?

[Utkin]

Через цикл, не вижу ничего сложного. Нужно просто задачу разбить на ряд подзадач в виде независимых функций и процедур. Например, написать процедуру выделения ячейки нужным цветом. StringGrid относительно хорошо документирован и проблем с получением общего числа элементов в столбце, а также с получением произвольного элемента быть не должно.
Данных из этого источника http://www.delphi-manual.ru/stringgrid.php должно хватать для реализации поставленного примера.
Здесь пример раскрашивания ячеек: http://www.delphisources.ru/pages/fa...in_dbgrid.html

[artemavd]

Данных из этого источника http://www.delphi-manual.ru/stringgrid.php должно хватать для реализации поставленного примера.

Неа, из этой ссылки данных для реализации недостаточно.

[DIgorevich]

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

Неа, из этой ссылки данных для реализации недостаточно.

Так, а в чем конкретно загвоздка-то? Вы пробовали уже цикл писать хотя-бы сравнения значений?

[Utkin]

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

Неа, из этой ссылки данных для реализации недостаточно.

Я же про закраску тоже привел источник.

[artemavd]

В программе не пробовал. Попробую так написать тут:

var
 i,j,i1,j2: integer;
begin
 for i:=1 to Form1.SG1.RowCount - 1 do
 begin
  for i1:=1 to Form1.SG2.RowCount - 1 do
  begin
   if Form1.SG1.Cells[0,i] = Form1.SG2.Cells[0,i1] then
   begin
     //что тут написать?
   end;
  end;
 end;
end;

[Utkin]

Зачем I1?

if Form1.SG1.Cells[0,i] = Form1.SG2.Cells[0,i] then

Цикл по I1 не нужен.

  //что тут написать?

http://www.delphisources.ru/pages/fa...in_dbgrid.html

[DIgorevich]

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

В программе не пробовал. Попробую так написать тут:

var
 i,j,i1,j2: integer;
begin
 for i:=1 to Form1.SG1.RowCount - 1 do
 begin
  for i1:=1 to Form1.SG2.RowCount - 1 do
  begin
   if Form1.SG1.Cells[0,i] = Form1.SG2.Cells[0,i1] then
   begin
     //что тут написать?
   end;
  end;
 end;
end;

Данный код подразумевает одинаковые по кол-ву записей таблицы? И проверяться будет только первый столбец?

[artemavd]

Данный код подразумевает одинаковые по кол-ву записей таблицы?

Точно заранее неизвестно.

Так чтоли?

var
 i,j,i1,j2: integer;
begin
 for i:=1 to Form1.SG1.RowCount - 1 do
 begin
  begin
   if Form1.SG1.Cells[0,i] = Form1.SG2.Cells[0,i] then
   begin
    SG1.canvas.brush.Color := clGreen;
   end;
  end;
 end;
end;

[Utkin]

http://www.delphisources.ru/pages/fa...in_dbgrid.html
http://delphifaq.nshome.ru/192.htm

Нашел на одном из форумов:

s:=StrToFloat(SG1.Cells[Sg1.ColCount-1,Arow]); //считываем значение оценки в соседнем столбце
if s<3 then Begin //сравниваем оценку если ниже "дВА" тогда
if s<2.3 then si:=0 else if s<2.6 then si:=51 else si:=102; //присвоим переменной Si числовое значение
s:=s*100+240; / / это высчитаные координаты для столбца диаграммы (у каждого свои!)
st:=FloatTostr(s);
cd:=StrToInt(st);
SG1.Canvas.FillRect(Rect);
SG1.Canvas.Pen.Color:=clBlack; //присвоим цвет рамки черный
SG1.Canvas.Brush.Color := TColor(RGB(255,si,0)); //присвоим цвет заливки тут красный....чем ближе к "ДВА" тем краснее

// SG1.Canvas.Brush.Color := TColor(RGB(si,255,0)); чем больше Si тем желтее максимум 255 но в коде другие Si присваеваем

// SG1.Canvas.Brush.Color := TColor(RGB(102,255,si)); чем больше Si тем зеленее максимум 255 но в коде другие Si присваеваем


SG1.Canvas.Rectangle(Rect.Left,Rect .Top,cd,Rect.Bottom); //выводим прямоугольник...который является столбцом диаграммы в таблице!!
end
else // иначе и погнали дальше!!

Здесь пример частичного закрашивания ячейки.