Математика и программирование

procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin 
Chart1.Series[
0
].AddXY(
0
, 
5
); 
Chart1.Series[
0
].AddXY(
1
, 
2
); 
Chart1.Series[
0
].AddXY(
2
, 
6
); 
Chart1.Series[
0
].AddXY(
3
, 
3
); 
end; 
Не спешите запускать приложение, т.к. нам нужно ещё правильно настроить 
компонент TChart в design-time. Компонент TChart нужен для отображения различного 
рода графиков. Программисту не нужно размечать плоскость изображения, проводить 
линии, рассчитывать масштаб, подбирать цвет и т.д. Всё это уже реализовано в TChart, 
нужно лишь уметь правильно настроить его в design-time.
После появления на форме компонент TChart не содержит никаких линий графиков. 
Для того, чтобы мы увидели графики в виде, например, линий, нужно сначала их создать. 
Щелкнем два раза на компоненте Chart1 – откроется мастер его настройки. Для добавления 
графика выберем пункт Series, нажмём кнопку Add и в открывшейся галерее графиков 
выберем самый простой первый шаблон Line. Для первого знакомства лучше снять 
«галочку» около 3D, наш график будет плоским. Потом нажмем OK. На рис. 5.2 схематично 
показана последовательность действий.
Рис. 5.2. Мастер создания графиков в TChart 
После этого в design-time на форме появился график в виде ломаной линии. На самом 
деле он показывает лишь некие случайные данные. Запустим приложение и увидим, что 
график по-прежнему пуст. Но теперь если на интерфейсе мы нажмём на кнопку с 
«флажком», то на графике появится линия, соответствующая введенному выше коду (рис 
5.3).

---

126 
Рис. 5.3. Простейшее отображение графика 
Теперь разберём код. Каждая конструкция Chart1.Series[0].AddXY в переводе с языка 
Object Pascal означает, что: 
• компонент Chart1 содержит массив графиков-линий Chart1.Series; 
• следует обращение к первой графической линии по индексу «0» 
Chart1.Series[0]; 
• в первую графическую линию добавляется точка с координатами (X, Y).
Полностью добавление точки выглядит так: Chart1.Series[0].AddXY(…,…), а вместо 
многоточия в последнем пункте подставляются числа – координаты точки на графике. 
Можно перевод с «дельфийского» (не путать с «элфийским») начать с конца: 
• добавляем точку с координатами (X, Y) методом AddXY(…,…); 
• к первой графической линии Series[0].AddXY(…,…); 
• который принадлежит к компоненту Chart1 - Chart1.Series[0].AddXY(…,…). 
Давайте повторим последовательность действий, когда нам понадобится добавить 
очередную графическую линию в компонент TChart: 
• два раза щёлкнуть на компоненте TChart, чтобы вызывать мастер его 
настройки; 
• добавить линию графика (или другой вид графика) в узле Series; 
• в исходном коде к добавленной новой линии графика нужно обращаться как 
Chart1.Series[n-1], где n – количество уже добавленных линий графиков. 

---

127 
5.2. Отображения графика функции 
Отличным показательным примером использования компонента TChart будет 
построение графика какой-либо функции. Выше мы добавили некие произвольные 
данные, теперь же будем рассчитывать координаты каждой новой точки по формуле 
y=a*x
2
+b, где a и b – некие произвольные числа. Впоследствии мы будем иметь 
возможность изменить их с интерфейса пользователя. Рассчитывать координаты мы будем 
последовательно для каждой точки, перебирая их в цикле. Рассмотрим рис. 5.4, чтобы 
затем правильно написать программный код.