нужно пстроить график по значениям StringGrid'a(2 строчки, тоесть значения X и Y. и сколько тo столбцов. )далее добавить три точки координаты которых нам известны(Х одинаковые, а У берутся из label's). Воспользовался Chart. Возникла проблема с 3мя точками, не всегда их показывает. И не знаю что сделать если значения в label меняются, точки превращаются уже в линии и с последующим нажатием продолжают рисовать лини. Надо что то типа очистки сделать, а как не знаю. помогите!!!
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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.