KnowledgeHub
Questions
Tags
Users
Search
Alex Rivera
|
Logout
Edit Question
Title
Body
I have this test program https://gist.github.com/real-mielofon/5002732 RttiValue := RttiMethod.Invoke(RttiInstance, [10]); and simple unit with interface: unit Unit163; interface type {$M+} ISafeIntf = interface function TestMethod(aI: integer): integer; safecall; end; {$M-} type TSafeClass = class(TInterfacedObject, ISafeIntf) public function TestMethod(aI: integer): integer; safecall; end; implementation function TSafeClass.TestMethod(aI: integer): integer; begin result := aI+1; // Exception !! end; end. and I have kaboom on result := aI+1; if it is procedure or isn't safecall, then it's all right :-(
Tags (comma-separated)
Save Edits
Cancel