[fpc-pascal] Casting descendant interface variables to base

[cobines]

Hello everyone,

I have attached a program about which I have a question.

Why does iBase have different value than iBaseAsBase? It seems simply
assigning to interface variable doesn't change it to base interface, I
have to explicitly use "as IBaseInterface". Is it correct?

Basically, I'm trying to determine in CopyToInterface function if the
parameter points to the same object as Self.

--
cobines
-------------- next part --------------
A non-text attachment was scrubbed...
Name: project1.lpr
Type: application/octet-stream
Size: 1508 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20110131/17c94df9/attachment.obj>