Сравнивание ячеек двух таблиц

[Rainkhz]

Всем доброго времяни суток!
Помогите в решении задачи:
Два стринггрида, при нажатии на баттон в ячейках генерируются случайные семволы, а при нажатии на второй баттон они должны сравниваться друг с другом, и если значения совпадают подсвечиваться.

[vovk]

принцип

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
begin
randomize;
//включаем прорисовку по умолчанию
StringGrid1.DefaultDrawing:=True;
StringGrid2.DefaultDrawing:=True;

//параметры для 1
StringGrid1.ColCount:=5;
StringGrid1.RowCount:=5;
StringGrid1.FixedCols:=0;
StringGrid1.FixedRows:=0;
//параметры для 2
StringGrid2.ColCount:=5;
StringGrid2.RowCount:=5;
StringGrid2.FixedCols:=0;
StringGrid2.FixedRows:=0;
// заполняем 1
for x := 0 to StringGrid1.ColCount - 1 do
for y := 0 to StringGrid1.RowCount -1 do
StringGrid1.Cells[x,y]:=inttostr(Random(50));
// заполняем 2
for x := 0 to StringGrid2.ColCount - 1 do
for y := 0 to StringGrid2.RowCount -1 do
StringGrid2.Cells[x,y]:=inttostr(Random(50));

end;

procedure TForm1.Button2Click(Sender: TObject);
var
x,y,z,j:integer;
begin
//отключаем прорисовку по умолчанию
StringGrid1.DefaultDrawing:=false;
StringGrid2.DefaultDrawing:=false;
//ищем  рисуем
for x := 0 to StringGrid1.ColCount - 1 do
for y := 0 to StringGrid1.RowCount -1 do
for z := 0 to StringGrid2.ColCount - 1 do
for j := 0 to StringGrid2.RowCount -1 do
if StringGrid1.Cells[x,y]=StringGrid2.Cells[z,j] then
begin
 StringGrid1.Canvas.FillRect(StringGrid1.CellRect(x,y));
 StringGrid1.Canvas.Brush.Color:=clYellow;
 StringGrid1.Canvas.TextOut(StringGrid1.CellRect(x,y).Left+5 , StringGrid1.CellRect(x,y).Top+3 , StringGrid1.Cells[x, y]);
 StringGrid2.Canvas.FillRect(StringGrid2.CellRect(z,j));
 StringGrid2.Canvas.Brush.Color:=clYellow;
 StringGrid2.Canvas.TextOut(StringGrid2.CellRect(z,j).Left+5 , StringGrid2.CellRect(z,j).Top+3 , StringGrid2.Cells[z, j]);
 end;
end;

естественно требуется подумать и доработать.. Но это уже как я думаю ваша задача

ЗЫ подсказка, для прорисовки лучше использовать процедуру DrawCell стринггрида

[Rainkhz]

Благодарю!