Строки красятся по событию Tfrm_Main.DBGrid15DrawDataCell,
В этом же событии нужно увеличивать счетчик закрашиваемых строк.
Вот немного поправил предыдущий код:
Код:
var
Form1: TForm1;
aa: array of MyType1;
bb: array of MyType2;
// счетчик строк
FLightedRowsCounter : integer;
// указатель строки
FCurrentRowNum : integer;
implementation
...
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
i:integer;
begin
if Length(aa)>0 then
begin
i:=DBGrid1.DataSource.DataSet.RecNo;
if DBGrid1.DataSource.DataSet.RecNo = aa[i-1].zap3 then
begin
dbgrid1.Canvas.Brush.Color := cllime;
DBGrid1.Canvas.Font.Color := clRed;
dbGrid1.DefaultDrawDataCell(Rect,Field,State);
// Увеличиваем счетчик если нашли новую совпавшую запись
if (FCurrentRowNum <> DBGrid1.DataSource.DataSet.RecNo) then inc(FLightedRowsCounter);
// устанавливаем указатель на новую запись
FCurrentRowNum := DBGrid1.DataSource.DataSet.RecNo;
end;
end;
end;
...
procedure Tfrm_Main.SpeedButton21Click(Sender: TObject);
var
i1, i2, p1, p2 : integer;
begin
// обнуляем счетчик и указатель строки устанавливаем в -1
FLightedRowsCounter := 0;
FCurrentRowNum :=-1;
SetLength(aa, 0);
DBGrid16.DataSource.DataSet.Last;
DBGrid16.DataSource.DataSet.First;
SetLength(bb, 0);
DBGrid15.DataSource.DataSet.Last;
DBGrid15.DataSource.DataSet.First;
DBGrid15.DataSource.DataSet.First;
DBGrid16.DataSource.DataSet.First;
p1 := DBGrid15.DataSource.DataSet.RecordCount-1 ;
p2 := DBGrid16.DataSource.DataSet.RecordCount-1 ;
//******************
DBGrid15.DataSource.DataSet.DisableControls;
try
for i1:=0 to p1 do
begin
SetLength(aa, Length(aa) + 1);
aa[i1].zap1:= DBGrid15.DataSource.DataSet.RecNo;
aa[i1].zap2:= DBGrid15.DataSource.DataSet.FieldValues['ACTION_CODE'];
DBGrid15.DataSource.DataSet.Next;
end;
finally
DBGrid15.DataSource.DataSet.EnableControls;
end;
DBGrid16.DataSource.DataSet.DisableControls;
try
for i2:=0 to p2 do
begin
SetLength(bb, Length(bb) + 1);
bb[i2].zap1:= DBGrid16.DataSource.DataSet.RecNo;
bb[i2].zap2:= DBGrid16.DataSource.DataSet.FieldValues['ACTION_CODE'];
DBGrid16.DataSource.DataSet.Next;
end;
finally
DBGrid16.DataSource.DataSet.EnableControls;
end;
for i1:=0 to Length(aa)-1 do
begin
aa[i1].zap3 := findAA(i1);
end;
for i2:=0 to Length(bb)-1 do
begin
bb[i2].zap3 := findBB(i2);
end;
DBGrid15.DataSource.DataSet.First;
DBGrid16.DataSource.DataSet.First;
// отображаем количество закрашеных строк
Label1.caption := inttostr( FLightedRowsCounter);
end;