Пример обработчика вывода графических примитивов

procedure TForm1.FormPaint(Sender: TObject);

{обработчик события перерисовки формы, выводит изображение в клиентскую область формы}

Var i:integer;{счетчик циклов для рисования эллипсов и прямых}

begin {далее установка параметров изображения}

color:=clWhite;{цвет фона клиентской области формы -белый}

Canvas.Brush.Color:=clLtGray;{цвет заливки – светло-серый}

Canvas.Pen.Width:= 1;{толщина линий полагается равной 1}

Canvas.Pen.Color:=clBlack;{цвет линий - черный}

Canvas.Pen.Style:=psSolid;{линии - сплошные}

Canvas.Brush.Style:=bsBDiagonal;{штриховка - диагональная}

for i:=1 to 3 do {в цикле рисуется три эллипса}

begin

if i=3 then{для последнего эллипса заливка меняется }

Canvas.Brush.Style:=bsSolid;{на сплошную}

Canvas.Ellipse (50, 80+(i-1)*100, 250, 120+(i-1)*100);

end;

{ниже – рисование треугольника}

Canvas.Polygon([Point(40,330),Point(100,330),Point(100,350)]);

{рисование верхней дуги}

Canvas.Arc(290,60,360,140,360,100,325,60);

{рисование нижней дуги}

Canvas.Arc(190,270,310,350,250,350,310,310);

Canvas.Pen.Style:=psDash;{линии меняются на пунктирные}

{ниже – рисование вертикально стоящего прямоугольника}

Canvas.Rectangle(320,120,350,340);

Canvas.Pen.Style:=psDashDot;{линии – штрих-пунктирные}

Canvas.Brush.Style:=bsDiagCross;{перекрестная штриховка}

Canvas.Rectangle(240,30,260,70);{малый прямоугольник}

for i:=1 to 3 do{в цикле рисуются линии, стиль линии }

begin { выбирается оператором case}

case i of

1: Canvas.Pen.Style:=psDash;

2: Canvas.Pen.Style:=psDashDot;

3: Canvas.Pen.Style:=psSolid;

end;

Canvas.MoveTo(10, 100*i);{курсор – в начало линии}

Canvas.LineTo(300,100*i);{рисование линии}

end;

end;

Пример обработчика, формирующего массивы координат точек серий для вывода графиков функций с помощью Chart

procedure TForm1.FormCreate(Sender: TObject);

{Обработчик выполняется при создании формы}

Var n,i:integer;{n – число точек, i-номер точки}

x,y,h:real;{координаты точки и шаг приращения аргумента x}

begin

n:=20;

h:=2*pi/n;

x:=0;{начальное значение x}

Series1.Title:='sin';{изменение названий серий для легенды}

Series2.Title:='cos';

for i:=1 to n do {цикл по точкам}

begin

y:=sin(x);

Series1.AddXY(x,y);{добавление точки к первой серии (графику)}

y:=cos(x);

Series2.AddXY(x,y); {добавление точки ко второй серии (графику)}

x:=x+h;{изменение x}

end;

end;

Лабораторная работа №10. Обработка исключительных ситуаций

Цель работы:освоение приемов обработки исключительных ситуаций в Объектном Паскале.

Продолжительность работы:2 часа

1. Подготовка к работе

Перед началом выполнения работы студент должен:

1. Ознакомиться с обработкой исключительных ситуаций по пособию [3], гл. 9.

2. Подготовить фрагменты программного кода обработки исключительных си­туаций для приложений, созданных в предыдущих лабораторных работах:

1. исключительная ситуация класса EConvertError (ошибка преобразова­ния данных) при считывании значений исходных данных из компонент Edit и преобразовании этих значений к числовым типам с использованием функций StrToInt, StrToFloat в приложении для задачи 1.3.4.N+1 (лабора­торная работа №5);

2. исключительная ситуация класса EConvertError при считывании значе­ния длины массива из компоненты Edit в приложении для задачи 3.4.N+1 (ла­бораторная работа №8); требуется заменить существующий условный опе­ратор на обработку исключения;

3. генерация исключительной ситуации (с помощью оператора raise), если в качестве длины массива введено неположительное число (задача 3.4.N+1, ла­бораторная работа №8); требуется заменить существующий опе­ратор вывода сообщения об ошибке на генерацию исключения:

if n<=0 then raise Exception.Create('Введите положительное число');

4. генерация исключительной ситуации, если значения исходных данных выходят за допустимые границы (задача 1.3.4.N+1, ла­бораторная работа №5; допустимые границы определить из условия задачи);

5. (2-3) исключительные ситуации (деление на нуль, переполнение, извлечение корня из отрицательного числа и т. п.) при вычислении значений функций в лабораторной работе №9.

3. Подготовка проекта отчета по лабораторной работе. Отчет должен содержать для каждой исключительной ситуации:

1. описание ситуации;

2. фрагмент программного кода для ее обработки.