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

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

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

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

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.

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ