我的源代码如下:TmaxSeries:=TbarSeries.Create(chart1); TminSeries:=TbarSeries.Create(chart1); RainSeries:=TbarSeries.Create(chart3); for i:=1 to 7 do begin TmaxSeries.Add(strtofloat(Tmax[i]),inttostr(1*i),clred); TminSeries.Add(strtofloat(Tmin[i]),inttostr(1*i),clgreen); end; for i:=1 to 7 do begin RainSeries.Add(strtofloat(Rain12[i]),floattostr(1*i),clblue); RainSeries.Add(strtofloat(Rain24[i]),floattostr(1*i+1),clblue); end; TmaxSeries.Marks.Visible:=true; TmaxSeries.Marks.Style:=smsValue; TminSeries.Marks.Visible:=true; TminSeries.Marks.Style:=smsValue; RainSeries.Marks.Visible:=true; RainSeries.Marks.Style:=smsValue; chart1.Title.Text.Text:='气温'; chart1.AddSeries(TmaxSeries); chart1.AddSeries(TminSeries);
TminSeries:=TbarSeries.Create(chart1);
RainSeries:=TbarSeries.Create(chart3);
for i:=1 to 7 do
begin
TmaxSeries.Add(strtofloat(Tmax[i]),inttostr(1*i),clred);
TminSeries.Add(strtofloat(Tmin[i]),inttostr(1*i),clgreen);
end;
for i:=1 to 7 do
begin
RainSeries.Add(strtofloat(Rain12[i]),floattostr(1*i),clblue);
RainSeries.Add(strtofloat(Rain24[i]),floattostr(1*i+1),clblue);
end;
TmaxSeries.Marks.Visible:=true;
TmaxSeries.Marks.Style:=smsValue;
TminSeries.Marks.Visible:=true;
TminSeries.Marks.Style:=smsValue;
RainSeries.Marks.Visible:=true;
RainSeries.Marks.Style:=smsValue;
chart1.Title.Text.Text:='气温';
chart1.AddSeries(TmaxSeries);
chart1.AddSeries(TminSeries);
调整bar offset可以实现