TPSExternalClass

type TPSExternalClass = class(TObject)

protected

  SE: TPSPascalCompiler;

  FTypeNo: TPSType;

public

  function SelfType; virtual;

  constructor Create();

  function ClassFunc_Find(); virtual;

  function ClassFunc_Call(); virtual;

  function Func_Find(); virtual;

  function Func_Call(); virtual;

  function IsCompatibleWith(); virtual;

  function SetNil(); virtual;

  function CastToType(); virtual;

  function CompareClass(); virtual;

end;

TPSExternalClass

TObject