Новая серия в TChart [D2005, 2003]
dik59 © (2011-01-22 23:48:00)
Уважаемые мастера, никак не могу заставить работать 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:00) [1]
Сам разобрался,
вместо s := TChartSeries.Create(Self);
нужно s := TLineSeries.Create(Self);
Наверх 
ЧАТ |
Орешник |
|
