procedure TForm1.BitBtn3Click(Sender: TObject);
var
k:integer;
begin
for k:=1 to (stringgrid1.ColCount-1) do
begin
chart1.SeriesList[0].AddXY(strtofloat(stringgrid1.Cells[k,0]),strtofloat(stringgrid1.Cells[k,1]),'');
end;
for k:=1 to 2 do
chart1.SeriesList[1].AddXY(strtofloat(edit1.Text)+(k*0.1),strtofloat(label14.Caption)+(k*0.1),'',clBlue);
for k:=1 to 2 do
chart1.SeriesList[2].AddXY(strtofloat(edit1.Text)+(k*0.1),strtofloat(label16.Caption)+(k*0.1),'',clYellow);
for k:=1 to 2 do
chart1.SeriesList[3].AddXY(strtofloat(edit1.Text)+(k*0.1),strtofloat(label20.Caption)+(k*0.1),'',clGreen);
end;
Chart из StrihgGrida |