How to cast a Interface to a Object in Delphi

by

Instead of relying on Delphi’s internal object layout you could also have your objects implement another interface which would simply return the object. This, of course, only works if you have access to the source code of the objects to begin with, but you probably shouldn’t even use these hacks if you don’t have access the source code of the objects.

interface 

type
  IGetObject = interface
    function GetObject: TObject;
  end;

  TSomeClass = class(TInterfacedObject, IGetObject)
  public
    function GetObject: TObject;
  end;

implementation

function TSomeClass.GetObject: TObject;
begin
  Result := Self;
end;

More Related Contents:

  1. Pascal, Delphi Linked lists [closed]
  2. Proper structure syntax for Delphi/Pascal if then begin end and ;
  3. Which variables are initialized when in Delphi?
  4. Converting TMemoryStream to ‘String’ in Delphi 2009
  5. Redraw image from 3d perspective to 2d
  6. How do I make a PNG resource?
  7. Should the compiler hint/warn when passing object instances directly as const interface parameters?
  8. Step by step upgrade of Indy 10 in Delphi 2009
  9. Delphi 2009: How to communicate between Windows service & desktop application under Vista?
  10. Are GUIDs necessary to use interfaces in Delphi?
  11. How to get a stack trace from FastMM
  12. Faster DirectoryExists function?
  13. What are major incentives to upgrade to D2009 (Unicode excluded)?
  14. Why should I not use “if Assigned()” before accessing objects?
  15. Why cannot take address to a nested local function in 64 bit Delphi?
  16. Debugging Access Violation errors?
  17. System Error. Code: 8. Not enough storage is available to process this command
  18. Delphi 2010: How to save a whole record to a file?
  19. Registration-free COM/DLL?
  20. I do not understand what Application.ProcessMessages in Delphi is doing [closed]
  21. How do I let Delphi know I’ve already handled an exception?
  22. Cast a struct pointer to interface pointer in Golang
  23. Delphi Conversion Unicode Issues
  24. WWW server reports error after POST Request by Internet Direct components in Delphi
  25. How to add manifest info into delphi project
  26. How to retrieve cpu usage per process
  27. How to detect “dangling pointers” if “Assigned()” can’t do it?
  28. How can I enable my 32-bit Delphi application to use 4gb of memory on 64-bit windows (via Wow64.exe)?
  29. Why are TGeneric and TGeneric incompatible types?
  30. How to take a screenshot of the Active Window in Delphi?

Leave a Comment