Вывод диаграммы (Delphi)

Сформируем круговую диаграмму проданных товаров по типам в стоимостном выражении (рис. 8.1.7.1).

Рис. 8.1.7.1. Вид формы с диаграммой

Разместим пять полей (Edit1 - Edit5) для ввода объема продаж товаров по груп­пам (не все поля можно заполнять и поля с ошибками игнорируют­ся), три кнопки и компонент Chart1 с указанием типа диаграммы и ряда Se­ries1(п. 2.3.7.7). Приведем тексты процедур.

Var // раздел переменных модуля Unit1

a, b, c, d, e: real; n: Integer; // переменные

procedure TForm1.Button1Click(Sender:TObject); // вывод диаграммы

begin With Series1 do // закрепление объекта Series по умолчанию

begin clear; // очистка поля диаграммы

val(Edit1.Text,a,n); // перевод значения текстового поля Edit1.Text в «A»

if n=0 then add (a, 'Продукты', clRed);// вывод сектора «A» красным цветом

val(Edit2.Text,b,n); if n=0 then add (b,'Одежда', clBlack); // вывод сектора B

val(Edit3.Text,c,n); if n=0 then add (c, 'Мебель', clGreen); // вывод сектора C

val(Edit4.Text,d,n); if n=0 then add (d, 'Техника',clYellow);// вывод сектора D

val(Edit5.Text,e,n); if n=0 then add (e, 'Прочие', clWhite); // вывод сектора E

end; end;

procedure TForm1.Button2Click(Sender: TObject); // кнопка «Очистить»

begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:=''; Edit5.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject); // кнопка «Выход»

begin Close; end;

Для формы в качестве обработчика события OnActivate укажем имя процедуры Button2Click ‑ обработки события OnClick кнопки Очистить.

Дата добавления: 2014-12-08