Передать процедуру с параметрами как параметр

@Arlando · Регистрация: 23.11.2021

Студворк — интернет-сервис помощи студентам

Всем привет!

Собственно вопрос такой, как передать процедуру с параметрами как параметр в другую процедуру?

@Constcat · 23.11.2021, 16:52

Сообщение от Verevkin

нетЪ.
А надо?

Лично мне - да. Цеплять класс интерфейса к классам, не имеющим общего предка.

Verevkin · 23.11.2021, 16:58

Сообщение от Constcat

Лично мне - да. Цеплять класс интерфейса к классам, не имеющим общего предка.

Зачем?

@Constcat · 23.11.2021, 17:21

Сообщение от Verevkin

Зачем?

Ну, например,

Delphi
1
2
3
4
type
  TVisualizer1 = class(TForm, TInterface)
  .....
  TVisualizer2 = class(TPanel, TInteface)

Verevkin · 23.11.2021, 17:37

Сообщение от Constcat

Ну, например

Такое, вроде, ещо со времён delphi4 было.

@Constcat · 23.11.2021, 17:47

Сообщение от Verevkin

Такое, вроде, ещо со времён delphi4 было.

Ты про TInterfacedObject? Оно не работает в той связке, которую я привел в качестве примера.
Т.е., я не могу подцепить интерфейсный класс к классу, порожденного от TForm, например.

Delphi
1
2
3
4
5
6
7
8
9
type
  TInterface = class
    procedure Test; virtual; abstract;
  end;
 
type
  TFormClass = class(TForm, TInterface)
  ....
  end;

[Error] uTest.pas(7): Interface type required

Verevkin · 23.11.2021, 17:51

Сообщение от Constcat

Ты про TInterfacedObject?

ды.

Сообщение от Constcat

Оно не работает в той связке, которую я привел в качестве примера.
Т.е., я не могу подцепить интерфейсный класс к классу, порожденного от TForm, например.

Я не шарю в интерфейсах, они мне для работы не нужны.
Признаюсь честно: много раз пытался осилить эту тему, читал много умных книжек, но так и не понял, зачем это (кроме COM-взаимодействия) нужно. Короче, я далёк от всего этого.

@Constcat · 23.11.2021, 18:01

Не по теме:

Сообщение от Verevkin

Признаюсь честно: много раз пытался осилить эту тему, читал много умных книжек, но так и не понял, зачем это (кроме COM-взаимодействия) нужно. Короче, я далёк от всего этого.

В основном, для кросс-платформенных аппликух. Кросс-платформенный контроллер общается с платформенно-зависимыми GUI через вот такие вот интерфейсы.
У нас бизнес-софт крутится на Маке и на Винде. Интерфейс, понятное дело, написан с учетом платформенного API, а контроллеры кросс-платформенные.

@AzAtom · 23.11.2021, 18:40

Сообщение от Constcat

[Error] uTest.pas(7): Interface type required

Так это получается не интерфейс, а класс, потому и не хочет так.
Вот так вроде пускает:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
type
  TInterface = interface
    procedure Test;
  end;
 
type
  TFormClass = class(TForm, TInterface)
    procedure Test;
//  ....
  end;
 
 
implementation
 
procedure TFormClass.Test;
begin
...
end;

Не по теме:

Правда, я тоже в интерфейсах не шарю. Понял только, что они похожи на классы, но без реализации, потому, что реализацию предоставляет COM-объект.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Arlando 0 / 0 / 0 Регистрация: 23.11.2021 Сообщений: 20

	Передать процедуру с параметрами как параметр 23.11.2021, 10:13. Показов 4120. Ответов 27 Метки нет (Все метки) Всем привет! Собственно вопрос такой, как передать процедуру с параметрами как параметр в другую процедуру? 0