Удаление графика TChart Delphi

[McFrey]

Доброго времени суток уважаемые программисты.

Если в TChart необходимо построить несколько графиков ( ну скажем 5 например) они выбираются из radiogroup (ну тоже для примера) то как удалить последний построенный график?
т.е. Построили допустим 4 графика, нажимают кнопку удалить последний остается 3, снова нажимают кнопку остается 2, опять нажали 1 ну и так далее....как это реализовать?

[McFrey]

Tchart1.Series[i].Clear, удаляет только последний график....как вот Series[i] после этого на 1 уменьшать или увеличивать...?

[raxp]

...как то так:

 if chart1.SeriesCount<>0 then
  chart1.Series[chart1.SeriesCount-1].Destroy

Clear, удаляет только последний график

не удаляет, а очищает контейнер.

[McFrey]

raxp, дестрой разносит пол компонента, просто стирает оси и все,
и когда построил сначала третий а затем первый графики то ни один из них не удаляется...

[raxp]

дестрой разносит пол компонента, просто стирает оси и все,

ну, во первых не разносит, ибо пока есть хоть одна серия - будут и оси. Достаточно:

 if chart1.SeriesCount>0

Во-вторых, вам стоит пересмотреть методику добавления серий (скажем, сделать динамический массив серий) и запоминать индекс последнего, раз все вразнобой, а не по series1, 2, 3. С другой стороны, если у вас количество графиков всегда постоянное, то что мешает просто очищать контейнер через тот же Clear ?

[McFrey]

raxp, допустим вот так я рисую...тогда как очистить через clear?

begin
  x := XMin;
  repeat
    case RGroup1.ItemIndex of
      0: y := sin(x);
      1: y := cos(x);
      2: y := sin(x) / cos(x);
    end;
    i := RGroup1.ItemIndex;
    graph.series[i].addxy(x, y, '', clTeeColor);
    x := x + 0.01;
  until (x > graph.BottomAxis.Maximum);

[raxp]

1- обращаться каждый раз к VCL свойствам при добавлении новой точки - тот еще изврат, ну да бог с ним
2- получается у вас заранее неизвестно, какой график выберет пользователь ...значит для последовательного удаления заведите себе массив на общее количество добавленных серий и после каждого построения заносите индекс (номер серии) в порядке возрастания, а при удалении - считывайте индексы из массива в порядке убывания.

// глобальные VAR
VAR nom: integer = 0;
mas: array[0..2] of integer;


...
begin
  x := XMin;
  repeat
    case RGroup1.ItemIndex of
      0: y := sin(x);
      1: y := cos(x);
      2: y := sin(x) / cos(x);
    end;
    i := RGroup1.ItemIndex;
    graph.series[i].addxy(x, y, '', clTeeColor);
    x := x + 0.01;
  until (x > graph.BottomAxis.Maximum);
 
 mas[nom]:= i;
 inc(nom);
end;


...
// удаление
chart1.series[mas[nom]].clear;
dec(nom);

Смысл ясен?

[McFrey]

не совсем понятно что значит заносить индекс в порядке возрастания (убывания)...т.е. завожу массив и туда просто записываю индекс выбранной серии потом допустим a[j+1] индекс следующей серии??

[McFrey]

Ошибка возникает list index out of bounds (-1 или 22)

[raxp]

...не следующей серии, а выбранной, а при удалении перебираете индексы массива в обратном порядке. См. код выше.