Перейти из определенной строки кода основной программы в начало 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.
Объяснение кода листинга программы
- Объявлены две процедуры: MyRect и MyEllips.
- В обоих процедурах задаются координаты начала и размеры прямоугольника или эллипса.
- Задается цвет кисти и пера.
- Вызывается соответствующая графическая функция: rectangle или ellipse.
- Код не содержит вызовов этих процедур, поэтому графические объекты не будут нарисованы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д