Udalo mi sie zrobic cos takiego:
procedure TZestawienie.ComboBox1Change(Sender: TObject);
var
i,j : integer;
zapytanie, tmp: string;
tablica : array [0..3,0..11] of Double;
begin
Chart1.Title.Text.Clear;
Chart1.Title.Text.Add('Zestawienie za rok: ' + ComboBox1.Text);
for i:=0 to 3 do
begin
Chart1.SeriesList.Series[i].Clear(); //czyszczenie i-tych serii
if i=0 then
tmp := 'prad11';
if i=1 then
tmp := 'prad12';
if i=2 then
tmp:= 'gaz1';
if i=3 then
tmp:= 'woda1';
DM.ZQuery1.Close;
zapytanie:= 'SELECT * FROM tabhelp where (data1 like "' + Combobox1.text + '%") AND nrmieszkania = "' + frmOblicz.GroupBox1.Caption + '";';
DM.ZQuery1.SQL.Text:= zapytanie;
DM.ZQuery1.Open;
for j:=0 to 11 do
begin
tablica[i,j]:=StrToFloat(DM.ZQuery1.FieldByName(tmp).AsString);
DM.ZQuery1.Next;
end;
//dodawanie j-tej wartości w i-tej serii
Chart1.SeriesList.Series[i].Add(tablica[i,j]);
end
end;
Wszystko ladnie pieknie do tablicy wpisuja sie dane natomiast przy przeslaniu ich do chart1
Chart1.SeriesList.Series[i].Add(tablica[i,j]);
Jakies dziwne wyniki sie wpisuja ... moze ktos pomoc ??