«Стереть» линии можно просто с помощью Path1.Data.Clear.
Чтобы график не выходил за заданные масштабы и компонент не навязывал свой масштаб, данные для графика должны быть в пределах координатных заданных осей X и Y. Для того, чтобы задать масштаб компоненту нужно нарисовать вначале линии координат. Вводить данные можно из Memo.
Для масштабирования графика можно задать вводимый масштаб для данных через компоненты Edit:
kX:= StrToFloat (Edit1.Text);
kY:= StrToFloat (Edit2.Text);
Компонент Path можно использовать и для вывода данных в реальном времени, когда работа с данными периодически дополняет график, для этого достаточно добавлять данные в Memo и использовать его свойство onChage для перерисовки графика (очищаем график с помощью Path1.Data.Clear и рисуем заново с новыми данными).
Из простого графика можно получить полноценный прибор – регистратор сигнала. Регстратор позволяет задавать время дискретизации, коэффициент усиления сигнала, отображать текущие данные и их счет, листинг данных в Memo, копировать данные в буфер. Выбросы за пределы экрана не отображаются (прерывистый график). Дополнительный коэффициент позволяет преобразовать данные в единицы измерения (в нашем случае в температуру). При этом код получается очень компактным:
var
p: TPointF;
i, rnd: Integer;
n: Single;
kY, x1,x2,y,y1:Double;
s: String;
begin
if Edit1.Text = «1» then //Случайные данные для проверки!
begin //На ширину Path = 119 данных по 3 точки
//Начальную точку устанавливаем к началу координат.
if NumberBox6.Value = 0 then
begin
NumberBox6.Value:= 1;
p.X:= 1;
p.Y:= Path1.Height -1;
Path1.Data.MoveTo (p);
end;
rnd:= Random (100) *5+10; //Случайные данные
NumberBox2.Value:= rnd;//Истинное значение выводится
kY:= StrToFloat (Edit2.Text); //Коэффициент Y
NumberBox5.Value:= NumberBox5.Value+1;//Счет данных
NumberBox6.Value:= NumberBox6.Value+1;//Счет для цикла
s:= FloatToStr(NumberBox4.Value*NumberBox5.Value) + '; ' + FloatToStr(NumberBox2.Value); //В Memo истинные данные
Memo1.Lines.Add (s);
//Рисуем график не выходя за пределы Path
x1:= NumberBox6.Value*3;// 3 Точки на 1 значение Х
y:= rnd*kY;
if y <= Path1.Height – 5 then //Коррекция Y
begin
y1:= Path1.Height – kY*y;
p.X:= x1;
p.Y:= y1;
if NumberBox6.Value> = 119 then //За пределы Х
begin
Path1.Data.Clear;
NumberBox6.Value:= 0;//Новый цикл! С начало