Pivot Measures

var
  Summary: TSummary;
  Measure: TMeasure;
begin
  Summary := TSummary.Create(nil);
  try
    // Add measure with aggregation
    Measure := Summary.AddMeasure(
      Data['Sales'], 
      TAggregate.Sum
    );
  finally
    Summary.Free;
  end;
end;

type
  TAggregate = (Count, Sum, Average, Minimum, Maximum, First, Last);

Measure := Summary.AddMeasure(Data['OrderID'], TAggregate.Count);

Measure := Summary.AddMeasure(Data['Amount'], TAggregate.Sum);

Measure := Summary.AddMeasure(Data['Price'], TAggregate.Average);

Measure := Summary.AddMeasure(Data['Temperature'], TAggregate.Maximum);
Measure := Summary.AddMeasure(Data['Temperature'], TAggregate.Minimum);

Measure := Summary.AddMeasure(Data['Status'], TAggregate.First);
Measure := Summary.AddMeasure(Data['Status'], TAggregate.Last);

type
  TCalculationPercentage = (None, Column, Row, Total);

var
  Measure: TMeasure;
begin
  Measure := Summary.AddMeasure(Data['Sales'], TAggregate.Sum);
  
  // Calculate as percentage of grand total
  Measure.Calculation.Percentage := TCalculationPercentage.Total;
  
  // Or percentage of column total
  Measure.Calculation.Percentage := TCalculationPercentage.Column;
  
  // Or percentage of row total
  Measure.Calculation.Percentage := TCalculationPercentage.Row;
end;

type
  TCalculationRunning = (No, Cumulative, Difference);

Measure.Calculation.Running := TCalculationRunning.Cumulative;
Measure.Calculation.RunningByRows := True;  // By rows or columns

Measure.Calculation.Running := TCalculationRunning.Difference;

// Treat missing values as zero
Measure.Missing.AsZero := True;

var
  Expr: TExpression;
begin
  // Calculate profit
  Expr := Data['Revenue'] - Data['Cost'];
  Measure := Summary.AddMeasure(Expr, TAggregate.Sum);
end;

begin
  // Total sales
  Summary.AddMeasure(Data['Amount'], TAggregate.Sum);
  
  // Average order value
  Summary.AddMeasure(Data['Amount'], TAggregate.Average);
  
  // Order count
  Summary.AddMeasure(Data['OrderID'], TAggregate.Count);
end;

Measure := Summary.AddMeasure(Data['Sales'], TAggregate.Sum);
Measure.Name := 'Total Revenue';

Measure.Active := False;  // Temporarily disable

var
  Summary: TSummary;
  Measure: TMeasure;
begin
  Summary := TSummary.Create(nil);
  try
    // Dimensions
    Summary.AddGroupBy(Data['Region']);
    Summary.AddGroupBy(Data['Quarter']);
    
    // Sales total
    Measure := Summary.AddMeasure(Data['Sales'], TAggregate.Sum);
    Measure.Name := 'Total Sales';
    
    // Sales percentage of total
    Measure := Summary.AddMeasure(Data['Sales'], TAggregate.Sum);
    Measure.Name := '% of Total';
    Measure.Calculation.Percentage := TCalculationPercentage.Total;
    
    // Running total
    Measure := Summary.AddMeasure(Data['Sales'], TAggregate.Sum);
    Measure.Name := 'YTD Sales';
    Measure.Calculation.Running := TCalculationRunning.Cumulative;
    Measure.Calculation.RunningByRows := True;
    
    // Calculate
    Result := Summary.Calculate;
  finally
    Summary.Free;
  end;
end;