Feature: Case statement for class introspection
For example:
c := TInterfacedObject.Create;
case c of
TObject: result := 1;
TInterfacedObject: result := 2;
TAggregatedObject: result := 3;
otherwise result := 4;
end;
Tests can be found at: