Пользовательские функции

_andrews_

Действительно ли пользовательские функции могут возвращать ЛЮБОЙ тип?*

function Tfrm_Main.ReportUserFunction(const MethodName: string; var Params: Variant): Variant;
begin
Result := <TFont>; //нужно вернуть тип TFont
end;
но ругается (нужен Variant)
Спасибо

-=Den=-

Если нужно вернуть ссылку на объект, то :
function Tfrm_Main.ReportUserFunction(const MethodName: string; var Params: Variant): Variant;
begin
Result := Integer(Font);
end;

mvb

написал: »

Если нужно вернуть ссылку на объект, то :
function Tfrm_Main.ReportUserFunction(const MethodName: string; var Params: Variant): Variant;
begin
Result := Integer(Font);
end;

Можно и так: Result := Font; У варианта есть субтип VObject.