Галактика в вопросах и ответах

Код: Выделить всё

procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
begin
    if Length(RowSums) < (RowIndex + 1) then           
    begin                              
      SetLength(RowSums, (RowIndex + 1));                                                                     
      SetLength(RowCounts, (RowIndex + 1));
    end;                  
  
    if Length(ColSums) < (ColumnIndex + 1) then           
    begin                              
      SetLength(ColSums, (ColumnIndex + 1));                                                                     
      SetLength(ColCounts, (ColumnIndex + 1));
    end;                  
  
  
  if DBCross1.IsTotalColumn(ColumnIndex) then
  begin
    if RowCounts[RowIndex] > 0.0000001 then
    Begin                  
      Memo.Text := Format('%2.2n', [RowSums[RowIndex] / RowCounts[RowIndex]]);
      AllSumAvg := AllSumAvg + (RowSums[RowIndex] / RowCounts[RowIndex]);
    End;              
           
  end
  else if DBCross1.IsTotalRow(RowIndex) then
  begin              
    if ColCounts[ColumnIndex] > 0.0000001 then      
      Memo.Text := Format('%2.2n', [ColSums[ColumnIndex] / ColCounts[ColumnIndex]]);              
  end
  else
  begin
    if Value > 0.0000001 then
    begin
      RowSums[RowIndex] := RowSums[RowIndex] + Value;
      RowCounts[RowIndex] := RowCounts[RowIndex] + 1;

      ColSums[ColumnIndex] := ColSums[ColumnIndex] + Value;
      ColCounts[ColumnIndex] := ColCounts[ColumnIndex] + 1;                                      
    end;              
  end;
  if ( DBCross1.IsGrandTotalColumn(ColumnIndex) and DBCross1.IsGrandTotalRow(RowIndex) ) then
  Begin
     Memo.Text := Format('%2.2n', [AllSumAvg / (DBCross1.RowCount - 1)]);              
  End;            
end; // procedure DBCross1OnPrintCell                 

Код: Выделить всё

          var PrintParam: frxPrintParam;
          ClearAdvRecord(PrintParam);
          FRGetDefaultParameters(frPrintParam, PrintParam);
          PrintParam.ShowDialog := False;
          [b]FRSetParameters[/b](FReport, frPrintParam, PrintParam);
          FRPrintReport(FReport);