Пример Назад В начало Вперед
vipInterface dynaVip implements IDynamicCast, IObj1;
...

interface dynaVip;
  ...
  var : v2 : vip2;
		v3 : vip3;
  ...
  function IDynamicCast.QueryInterface (strObjName : string ) : ObjRef;
  begin
	result := NullRef;
	case strObjName of
	'IOBJ2' : result := Obj2(Delegate (v2));
	'IOBJ3' : result := Obj3(Delegate (v3));
	else
	if (OuterInterface <> NullRef)
		result := DynamicCast (OuterInterface, strObjName);
	end;
  end;
  ...
end.

Версия : Атлантис 5.0.02.