|
#1
|
|||
|
|||
Программа, график
Всем привет нужен график, за помощь могу поблагодорить материально:
График должен строится по 1 массиву, называется он скатерограммой. Как мне подсказывал, что-бы строился такой график нужно такое построение: Массив: 5 8 4 6 5 1 5 9 По иксу: 5 8 4 6 5 1 5 9 \ \ \ \ \ \ \ \ \ 8 4 6 5 1 5 9 Выше по игрику: То есть по игрику построение всегда на 1 число выше. Буду благодарен за помощь\совет, кто может полностью сделать такой график, прошу писать в личку. Последний раз редактировалось Rendy, 04.02.2013 в 02:32. |
#2
|
|||
|
|||
Ничего не понял по тому, как строить график.
Допустим есть одномерный массив 5 8 4 6 5 1 5 9. Я правильно понимаю, что надо поставить точки по следующим координатам (X, Y): (5,8), (8,4), (4,6), (6,5), (5,1), (1,5), (5,9)? И в чем проблема? Создать в TChart серию и напихать туда нужных точек? Код:
const Data : Array [0..7] Of Integer = (5, 8, 4, 6, 5, 1, 5, 9); procedure TForm1.DrawChart(A : Array Of Integer); var I : Integer; begin For I := Low(A) To High(A)-1 Do Chart1.Series[0].AddXY(A[i],A[I+1]); end; |
#3
|
|||
|
|||
А кликом как сделать?
спасибо. |
#4
|
||||
|
||||
Код:
unit Unit1; interface uses Series, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, StdCtrls; type TForm1 = class(TForm) Chart1: TChart; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure DrawChart(A : Array Of Integer); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.DrawChart(A : Array Of Integer); var I : Integer; begin For I := Low(A) To High(A)-1 Do Chart1.Series[0].AddXY(A[i],A[I+1]); end; procedure TForm1.Button1Click(Sender: TObject); const Data : Array [0..7] Of Integer = (5, 8, 4, 6, 5, 1, 5, 9); var AChartSeries: TPointSeries; begin Chart1.Title.Text.Text:='Rendy'; Chart1.View3D:=False; Chart1.BottomAxis.Title.Caption:='x'; Chart1.LeftAxis.Title.Caption:='y'; AChartSeries:=TPointSeries.Create(Chart1); AChartSeries.ShowInLegend:=False; Chart1.AddSeries(AChartSeries); DrawChart(Data); end; end. Пишу программы за еду. __________________ |
#5
|
|||
|
|||
спасибо, тему можно закрывать.
|