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