自己控制,用其本来方法写进去: procedure DrawChart; var i: Integer; begin aqStaInfo.First; chrStaInfo.Series[0].Clear; for i := 0 to aqStaInfo.RecordCount - 1 do begin chrStaInfo.Series[0].Add(aqStaInfo.Fields[1].AsFloat, aqStaInfo.Fields[0].AsString); aqStaInfo.Next; end; end;
procedure DrawChart;
var
i: Integer;
begin
aqStaInfo.First;
chrStaInfo.Series[0].Clear;
for i := 0 to aqStaInfo.RecordCount - 1 do
begin
chrStaInfo.Series[0].Add(aqStaInfo.Fields[1].AsFloat, aqStaInfo.Fields[0].AsString);
aqStaInfo.Next;
end;
end;