Перейти из определенной строки кода основной программы в начало unit - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Есть большая основная программа, из нее нужно "прыгнуть" в ещё не менее огромную программу. Решил юзать юниты. То, что можно вызывать определенные процедуры в юните с под основной программы я понял, а вот как можно перейти из определенной строки кода основной программы в начало юнита я чёт не понял . Основная:
Юнит:
Суть вышеописанного примера - пользователь нажмет на enter и программа перейдет к выполнению кода в юните...

Решение задачи: «Перейти из определенной строки кода основной программы в начало unit»

textual
Листинг программы
unit L1;
interface
uses GraphABC;
procedure MyRect(x,y,a,b:integer;cl:Color);
procedure MyEllips(x,y,a,b:integer;cl:Color);
implementation
procedure MyRect(x,y,a,b:integer;cl:Color);
begin
Pen.Color:=cl;
Brush.Color:=cl;
rectangle(x,y,x+a,y+b);
end;
procedure MyEllips(x,y,a,b:integer;cl:Color);
begin
Pen.Color:=cl;
Brush.Color:=cl;
ellipse(x,y,x+a,y+b);
end;
end.

Объяснение кода листинга программы

  1. Объявлены две процедуры: MyRect и MyEllips.
  2. В обоих процедурах задаются координаты начала и размеры прямоугольника или эллипса.
  3. Задается цвет кисти и пера.
  4. Вызывается соответствующая графическая функция: rectangle или ellipse.
  5. Код не содержит вызовов этих процедур, поэтому графические объекты не будут нарисованы.

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы