Любой тип данных

[_-Re@l-_]

Как в описании процедуры можно задать любой тип данных, то есть чтобы процедуре можно было передавать любой цифровой тип данных(Integer, LongInt, Real, Single, Extended, Double, Byte)?

[.Phoenix]

Variant может быть?

[_-Re@l-_]

Попробовал, пишет Unknown Identifier. Ну, типа не знает он такого.

[kakawkin]

char не поможет?

[Grag]

Как встроенный в транслятор тип данных Variant в Паскале не определен.
Может быть попробовать позаимствовать структуру данных из Delphi? Т.е. так, как она описана там, может прокатит?

[_-Re@l-_]

А как это сделать?

[Grag]

Тип Variant введен в Delphi, начиная со второй версии... В книге С.Тексейры и К. Пачеко "Delphi5(и в шестой тоже ). Руководство разработчика" подробно расписана структура данных этого типа. Если не найдешь книгу, то пиши мне, распишу тебе структуру данных подробно.

[Hacker19_90]

Нетепизированные параметры так же передаются по ссылке, однако их отличие со-
стоит в том, что для них не указывается тип. В этом случае в подпрограмму можно передавать параметры-переменные любого типа, а на программиста возлагается ответственность за корректное приведение типов внутри подпрограммы. Для приведения нетипизированного параметра к какому-либо типу используется следующая конструкция:
имя_типа(имя_параметра)
В качестве примера сделаем параметр rMod нетипизированным:
function Divide(a,b: integer; var rMod);
В этом случае для того, чтобы присвоить параметру rMod результат выражения а
mod b необходимо выполнить приведение к типу integer:
integer(rMod) := a mod b;
С таким же успехом параметр rMod можно было бы привести и к типу char,

[Stilet]

_-Re@l-_

Просто не указывай тип - это будет нетипированный параметр.