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

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

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

Есть большая основная программа, из нее нужно "прыгнуть" в ещё не менее огромную программу. Решил юзать юниты. То, что можно вызывать определенные процедуры в юните с под основной программы я понял, а вот как можно перейти из определенной строки кода основной программы в начало юнита я чёт не понял . Основная:
Листинг программы
  1. program CB;
  2. uses GraphABC, L1;
  3. procedure KDMM(Key : integer);
  4. begin
  5. case Key of
  6. VK_Enter: //Прыгнуть от сюда
  7. end;
  8. end;
  9. begin
  10. SetWindowSize(640,480);
  11. OnKeyDown := KDMM;
  12. end;
Юнит:
Листинг программы
  1. unit L1;
  2. //Прыгнуть сюда
  3. begin
  4.  
  5. end;
Суть вышеописанного примера - пользователь нажмет на enter и программа перейдет к выполнению кода в юните...

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

textual
Листинг программы
  1. unit L1;
  2. interface
  3. uses GraphABC;
  4. procedure MyRect(x,y,a,b:integer;cl:Color);
  5. procedure MyEllips(x,y,a,b:integer;cl:Color);
  6. implementation
  7. procedure MyRect(x,y,a,b:integer;cl:Color);
  8. begin
  9. Pen.Color:=cl;
  10. Brush.Color:=cl;
  11. rectangle(x,y,x+a,y+b);
  12. end;
  13. procedure MyEllips(x,y,a,b:integer;cl:Color);
  14. begin
  15. Pen.Color:=cl;
  16. Brush.Color:=cl;
  17. ellipse(x,y,x+a,y+b);
  18. end;
  19. end.

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы