[Sahan911]

Всем доброго времени суток! Понадобилась помощь. Все перерыл, не знаю как передавать тип, как параметр, как это делает к примеру функция SizeOf. Мы в параметр фенкции передаем тип например Integer, а она в свою очередь возврашает нам размер типа. Я хочу также передавать тип как параметр, а еще использовать переменные типа тип. Чтобы вопрос был понятен вот пример, как я хотел бы чтобы выглядел мой код:

Код:

Var
  VarType: AnyType;
...

Procedure MyProc(MyType: AnyType);
Var Buff: Pointer;
begin
...
  GetMem(Buff, SizeOf(MyType));
...
  FreeMem(Buff);
...
end;

...

begin
 MyProc(Integer);
end.

Заранее благодарен за помощь!