Delphi中TChart柱状图柱子重叠：如何实现柱子均匀分布？

嘿，这个场景我太熟了！之前帮同事调过类似的TChart柱状图，日期间隔不均的时候确实容易出现柱子挤在一起甚至重叠的情况，要实现均匀分布其实很简单，给你两种靠谱的方案：

方案1：把X轴改成分类轴（最直接有效） #

TChart的日期轴会严格按照日期的实际间隔分配位置，间隔大的地方柱子拉得很开，间隔小的就挤在一起。我们可以把它改成分类轴，让每个柱子不管日期间隔都均匀排列，只需要两步：

• 第一步：关闭Series的日期解析功能，让TChart把X值当作普通分类索引处理
• 第二步：手动把X轴的标签设置成对应的日期字符串，视觉上还是日期轴，但实际是均匀的分类排列

给你一段示例代码，假设你用的是TBarSeries，数据存在两个数组DateList（日期数组）和ValueList（数值数组）里：

var
  i: Integer;
begin
  BarSeries1.Clear;
  // 关键：关闭日期解析，让X值作为分类索引
  BarSeries1.XValues.DateTime := False;
  
  for i := 0 to High(DateList) do
  begin
    // 添加数值，同时设置柱子对应的标签为格式化后的日期
    BarSeries1.AddY(ValueList[i], FormatDateTime('yyyy-MM-dd', DateList[i]));
  end;
  
  // 调整柱子宽度，避免太挤（数值范围1-100，根据数据量调整）
  BarSeries1.BarWidthPercent := 75;
end;

方案2：自定义日期轴的刻度位置（保留日期轴特性） #

如果你还是想保留日期轴的一些功能（比如缩放、拖动），可以手动把每个数据点的X位置强制设为均匀的索引，再替换轴标签：

• 先计算数据点总数，把X轴的Minimum设为0，Maximum设为数据点数量-1
• 每个数据点的X值用索引（0、1、2...），然后把X轴的标签替换成对应的日期
• 最后隐藏X轴的自动刻度，只显示我们自定义的标签

示例代码：

var
  i: Integer;
  PointCount: Integer;
begin
  BarSeries1.Clear;
  PointCount := Length(DateList);
  
  // 设置X轴范围为索引范围
  Chart1.Axes.Bottom.Minimum := 0;
  Chart1.Axes.Bottom.Maximum := PointCount - 1;
  // 关闭自动刻度，只显示自定义标签
  Chart1.Axes.Bottom.Automatic := False;
  Chart1.Axes.Bottom.AutomaticTicks := False;
  
  for i := 0 to PointCount - 1 do
  begin
    // X值用索引，保证均匀分布
    BarSeries1.AddXY(i, ValueList[i]);
    // 设置对应位置的轴标签为日期
    Chart1.Axes.Bottom.Labels[i] := FormatDateTime('yyyy-MM-dd', DateList[i]);
  end;
  
  // 调整柱子宽度
  BarSeries1.BarWidthPercent := 75;
end;

额外小提示 #

• 如果你觉得柱子之间的间距不合适，可以调整BarWidthPercent的值，数值越大柱子越宽，越小间距越大
• 日期标签如果太长导致重叠，可以设置X轴标签的旋转角度，比如Chart1.Axes.Bottom.LabelsAngle := 45;，这样标签斜着显示就不会挤了

内容的提问来源于stack exchange，提问作者user3261006