Перейти из определенной строки кода основной программы в начало unit - PascalABC.NET
Формулировка задачи:
Есть большая основная программа, из нее нужно "прыгнуть" в ещё не менее огромную программу. Решил юзать юниты. То, что можно вызывать определенные процедуры в юните с под основной программы я понял, а вот как можно перейти из определенной строки кода основной программы в начало юнита я чёт не понял .
Основная:
Юнит:
Суть вышеописанного примера - пользователь нажмет на enter и программа перейдет к выполнению кода в юните...
Листинг программы
- program CB;
- uses GraphABC, L1;
- procedure KDMM(Key : integer);
- begin
- case Key of
- VK_Enter: //Прыгнуть от сюда
- end;
- end;
- begin
- SetWindowSize(640,480);
- OnKeyDown := KDMM;
- end;
Листинг программы
- unit L1;
- //Прыгнуть сюда
- begin
- end;
Решение задачи: «Перейти из определенной строки кода основной программы в начало 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.
- Код не содержит вызовов этих процедур, поэтому графические объекты не будут нарисованы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д