Delphi.Mocks.VirtualInterface.pas

{***************************************************************************}
{                                                                           }
{           Delphi.Mocks                                                    }
{                                                                           }
{           Copyright (C) 2011 Vincent Parrett                              }
{                                                                           }
{           http://www.finalbuilder.com                                     }
{                                                                           }
{                                                                           }
{***************************************************************************}
{                                                                           }
{  Licensed under the Apache License, Version 2.0 (the "License");          }
{  you may not use this file except in compliance with the License.         }
{  You may obtain a copy of the License at                                  }
{                                                                           }
{      http://www.apache.org/licenses/LICENSE-2.0                           }
{                                                                           }
{  Unless required by applicable law or agreed to in writing, software      }
{  distributed under the License is distributed on an "AS IS" BASIS,        }
{  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
{  See the License for the specific language governing permissions and      }
{  limitations under the License.                                           }
{                                                                           }
{***************************************************************************}

unit Delphi.Mocks.VirtualInterface;

interface
{$I 'Delphi.Mocks.inc'}


uses
  TypInfo,
  Rtti,
  Generics.Collections;

type
  {$IFDEF DELPHI_XE2_UP}
    TVirtualInterface = System.Rtti.TVirtualInterface;
  {$ELSE}
    //Attempt to create a cleanish room implementation of this class for D2010??
  {$ENDIF}



implementation

uses
  RTLConsts,
  SysUtils
  {$IFDEF DELPHI_XE2_UP}
   ;
  {$ELSE}
  ,PrivateHeap;
  {$ENDIF}

{$IFNDEF DELPHI_XE2_UP}

{$ENDIF}

end.