这应该是一个简单的答案,我相信它会是否定的,
但从一个较大的项目中,我有一个接口和过程。
iMyUnknown= interface(IInterface)
['..GUID..']
end;
procedure WorkObject(iObj :iMyUnknown);
我知道这个有效。
var
MyUnknown : iMyUnknown;
begin
if supports(obj, iMyUnknown, MyUnknown) then
WorkObject(MyUnknown);
但是像这样做是否可能呢?
if supports(obj, iMyUnknown) then
WorkObject(obj as iMyUnknown);