Функция VipName |
Позволяет получить имя VIP-интерфейса. Функция может быть использована для получения имени интерфейса при полиморфных вызовах.
function VipName(var aRef: ObjRef) : string;
aRef - переменная любого ссылочного типа.
Возвращает имя интерфейса в верхнем регистре.
Исключения:
ExObjIfcBadVar - переменная не является ссылкой.
ExObjIfcNoInit - ссылка не была инициализирована.
ExIfcBrokenLink - ссылка на выгруженный интерфейс.
... p := p1.GetSomeLink; Message (' Реализация находится в '+VipName (p)); ...
Начиная с Атлантис 5.0.02.