Построение графика на канве
Как построить график на канве?
//x, y - массив исходных данных //n - кол-во точек (размер массива) procedure TForm1.Button1Click(Sender: TObject); var i,dx,dy:integer; //счётчик, смещение по х, смещение по y, чтоб //начало координат было по центру формы begin form1.Repaint; dx:=width div 2; dy:=height div 2; {рисуем оси координат} canvas.MoveTo(0,dy); canvas.LineTo(width,dy); canvas.MoveTo(dx,0); canvas.LineTo(dx,height); {передвигаем курсор в первую точку и рисуем график в цикле} canvas.MoveTo(x[1]+dx,-y[1]+dy) ;//надеюсь понятно, почему -y[1] :) for i:=2 to n do canvas.LineTo(x[i]+dx,-y[i]+dy); end;
