Процедуры с переменным числом параметров Pascal

[Сергей089]

Всем доброго времени суток. Покажите, пожалуйста, как описать процедуру с переменным числом параметров в паскале.

[Sazary]

Вроде, только если передавать массив параметров.

[OCTAGRAM]

В Delphi есть возможность сделать формальный параметр array of char, например, в функциях форматирования используется именно array of char. Но это выглядит не совсем как переменное число параметров. Список нужно заключать в квадратные скобки.

Можно объявить функциональный тип с соглашением о вызове cdecl и к нему дописать varargs;, в этом случае Delphi позволяет вызывать сишные varargs функции.
Написать на чистом Паскале такую функцию не получится, зато можно определить cdecl функцию (без varargs), а дополнительные аргументы вытаскивать со стека. Потом на эту фукцию можно взять указатель и протайпкастить к функциональному типу и вызывать через переменную функционального типа. Ещё, может быть, получится импортировать и экспортировать под одним и тем же именем.

Наконец, последний известный мне вариант — это через IDispatch. На Delphi реализуется интерфейс IDispatch, затем объект с этим интерфейсом тайпкастится к типу OLEVariant. Затем у этого OLEVariant можно вызывать всяческие методы со всяческими параметрами.

Ещё можно сделать аналогичное решение, только без IDispatch. В Delphi есть какой–то встроенный способ делать аналогичные объекты, только типа Variant, и при этом использовать все типы, которые есть в Delphi, а не только в COM. Но я так не делал, так что не знаю.

Я ради интереса реализовывал IDispatch, который пишет, как его вызывают.
Вызываешь, допустим obj.asfdasf('sfsd', 34234, 'dfsd', True, 0);
На консоль печатается obj.asfdasf('sfsd', 34234, 'dfsd', True, 0);
вместо asfdasf можно написать что угодно и будет работать. Природа IDispatch такова, что он может вести себя как захочет. В частности, может вести себя так, как будто реализует методы со всеми возможными именами и типами. IDispatch — это, скажем так, дырка в полотне сильной типизации Delphi.

UPD: В обычном Паскале ничего из этого нет.