TСhart: отображение потоковых данных

[Kostya1981]

Здравствуйте, товарищи.

Задался целью построением графика под поток изменений переменной (кардиограмма живтоного ) на Delphi и только Delphi. Т.к. переменная изменяется почти ежесекундно, то и кривая координат рисуется довольно бойко. И всё вроде нормально, кроме одного - прежние точки на графике не исчезают и за счёт этого, происходит автомасштабирование и уплотнение графика. По сути мне интересны для анализа лишь до 200-та отображаемых последних точек.

Дак вот, как убрать уже не интересные, начиная с 201 назад и до самой первой образованной графиком? Так же, за счёт того, что точек накапливается без удаления прошлой (уже ненужной) информации уйма, программа начинает подвисать и это моя вторая проблемка .

Где-то встречал, что вроде бы можно воспользоваться командой "clear", но как именно - нет. Спасибо.

[Stilet]

 Chart1.BottomAxis.AutomaticMinimum:=false;
 Chart1.BottomAxis.Minimum:=Chart1.BottomAxis.Minimum+1;

Увидел смысл?

[raxp]

...для смещения и показа последних точек

сhart.BottomAxis.Automatic:=f alse;
chart.BottomAxis.Maximum:= последняя точка;
chart.BottomAxis.Minimum:= chart.BottomAxis.Maximum - к-во точек;

для очистки series.clear... в принципе подчищать можно раз в минуту например... вариантов реализации множество...

[Kostya1981]

Братцы, заработало!

Привожу окончательный пример для тех, кто найдёт по поисковику:

Chart1.series[0].addy(переменная);
label1.Caption:=floattostr(переменная); // необязательно, если нужно
chart1.BottomAxis.Automatic:=false;
chart1.BottomAxis.Maximum:=Chart1.s eries[0].addy(переменная);
chart1.BottomAxis.Minimum:=chart1.B ottomAxis.Maximum-колво точек;

[Kostya1981]

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

Пробовал так
Chart1.series[0].clear(Chart1.BottomAxis.Minimum-10000000);
и так пробовал
Chart1.series[0].clear(Chart1.BottomAxis.Maximum-per-1000000000);
даже так
google.com
не помогает... думать тоже пробовал (два раза)

Вразумейте друзья.

[evgn]

for i:=0 to кол-во точек do 
      Сhart1.Series[0].Delete(0);