Delphi中有一个TChart可视化组件。里面有基本的柱形图可以使用。

当需要特定的柱形图时也可以根据需要选择：

编辑Chart，点击Add添加Series出现如下界面：

 

点击Bar左下角的箭头，点击选择Sides即是簇状柱形图。

 

 

 代码形式如下：

  //使用mbSide类型
  Series1.MultiBar := mbSide;
  Series2.MultiBar := mbSide;
  
  //添加数据
  Series1.add(10.2,'时间',clRed);
  Series2.add(15.1,'时间',clBlue);
  Series1.add(14.2,'时间2',clRed);
  Series2.add(18.1,'时间2',clBlue);

 

 

 

其他图表功能代码：

//设置Series是否可见

Series1.Visible := False;

//设置图中数据点显示的数据类型（默认有可能是Y值，下面代码是设置为X值）

Series1.Marks.Style := smsValue;

//设置Chart图标中左侧栏字体颜色（上下左右其他字体格式以此类推）

Chart1.LeftAxis.LabelsFont.Color := clBlack;