안녕하세요. 델초입니다.

다름이아니라 디비차트를 소스코딩하려구 하는데...

잘 안돼서리...

제가 하고자 하는 방법은 디비차트 컴포넌트는 하나만 있고 버튼을 이용해서 각각

세 가지 값을 보여주려고 합니다.

총 series는 네개구요.

근데 문제는 첫번째 그래프를 봤다가 두번째 그래프를 본다음 마지막 세번째 그래프를

보면 에러가 납니다.

아무래도 series를 생성시켰다가 Free 해주는 부분에서 그런것 같은데 잘 모르겠습니다.

그럼 소스입니다.



procedure TForm_graph.EffImage_pulseClick(Sender: TObject);

begin

series2.Free;

series3.Free;

series4.Free;



series1 := TLineSeries.Create(self);

series1.ParentChart := DBChart_graph;

series1.DataSource := DM_HelloDocsV2.Query_graph;

series1.XLabelsSource := 'Medymd';

series1.YValues.ValueSource := 'pulse';



EffImage_pulse.Enabled := False; //실행버튼은 disable

EffImage_spo2.Enabled := True; //나머지버튼은 enable

EffImage_press.Enabled := True;

end;



procedure TForm_graph.EffImage_spo2Click(Sender: TObject);

begin

series1.Free; //생성시키는 series외에 것은 Free

series3.Free;

series4.Free;



series2 := TLineSeries.Create(self);

series2.ParentChart := DBChart_graph;

series2.DataSource := DM_HelloDocsV2.Query_graph;

series2.XLabelsSource := 'Medymd';

series2.YValues.ValueSource := 'spo2';



EffImage_spo2.Enabled := False;

EffImage_press.Enabled := True;

EffImage_pulse.Enabled := True;



end;



procedure TForm_graph.EffImage_pressClick(Sender: TObject);

begin

series1.Free;

series2.Free;



series3 := TLineSeries.Create(self);

series3.ParentChart := DBChart_graph;

series3.DataSource := DM_HelloDocsV2.Query_graph;

series3.XLabelsSource := 'Medymd';

series3.YValues.ValueSource := 'hpress';



series4 := TLineSeries.Create(self);

series4.ParentChart := DBChart_graph;

series4.DataSource := DM_HelloDocsV2.Query_graph;

series4.XLabelsSource := 'Medymd';

series4.YValues.ValueSource := 'lpress';



EffImage_press.Enabled := False;

EffImage_pulse.Enabled := True;

EffImage_spo2.Enabled := True;



end;