begin Chart1.AddSeries(csBar); with Chart1.SeriesData[0] do begin DataType := dtFixedData; XSource := '1;2;3;4;5;6'; YSource := '1;2;3;4;5;6'; end; end.
Chart1.AddSeries(csBar); with Chart1.SeriesData[0] do begin DataType := dtDBData; DataSet := ADOTAble1; XSource := 'ADOTable1."CustNo"'; YSource := 'ADOTable1."Company"'; end;
Комментарии