Новая серия в TChart

← →
dik59 (2011-01-22 23:48) [0]

Уважаемые мастера, никак не могу заставить работать TChart.
(исходного кода нет, сам разобраться не могу)
Создаю программно несколько серий данных по образцу, созданному в инспекторе, но почему-то новые серии не видны. Вот код:

procedure TForm1.AddData;
var i:integer;
s,t:TChartSeries;
begin
t := ch.Series[0];
if t.Count > 0 then begin
s := TChartSeries.Create(Self);
s.Assign(t); // тут я пытаюсь сделать вид серии подобным ch.Series[0];
// не знаю, правильно ли это
s.Clear;
s.Title := "Новая серия";
s := ch.AddSeries(s);
end else
s := t;
for i := 1 to 360 do begin
if s = t then // заполнение первой серии
s.AddXY(i*1.0,sin(i*pi/2.0/180.0))
else // заполнение последующих серий
s.AddXY(i*1.0,sin(i*pi/180.0));
end;
end;

Первый вызов заполняет существующую серию, я её вижу, а вот последующие вызовы данные в новую серию пишут, изменяется масштаб первого графика, но второго графика не видно.
Вопрос: что нужно сделать, чтобы новые графики появлялись?

← →
dik59 (2011-01-23 09:03) [1]

Сам разобрался,
вместо s := TChartSeries.Create(Self);
нужно s := TLineSeries.Create(Self);

Новая серия в TChart Найти похожие ветки