2 Cross берущих данные из 2-x различных StringGrid

Комментарии

• Spectrol

  April 2006 отредактировано 00:26

  Что совсем ни у кого идей нет?
  Даже у разработчиков?
• -=Den=-

  April 2006 отредактировано April 2006

  procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent);
  var
   Cross: TfrxCrossView;
   i, j: Integer;
  begin
  if Sender is TfrxCrossView then
  if Sender.Name = 'Cross1' then
   begin
  //заполняем первый корсс.
     Cross := TfrxCrossView(Sender);
      for j := 1 to CarCountActive do
       for i := 1 to 13 do
        begin
         Cross.AddValue([j], [i], [StringGrid3.Cells[i-1, j]]);
        end;
   end
  else if Sender.Name = 'Cross2' then 
    begin
    //заполняем второй корсс.
     Cross := TfrxCrossView(Sender);
      for j := 1 to CarCountActive do
       for i := 1 to 13 do
        begin
         Cross.AddValue([j], [i], [StringGrid4.Cells[i-1, j]]);
        end;
  end;
     
  end;