× General discussions, feature requests for CodeTyphon Project and discussions that don't fit in any of the other specific CodeTyphon forum categories.

Question smart pointer

Start
Prev
1
Next
End

sakata
Topic Author
Offline
Fresh Boarder

4 years 4 months ago #9628 by sakata

smart pointer was created by sakata

Hi,

I want to smart pointer.
I want to convert the code of Delphi to FreePascal

type
  Auto<T: class> = reference to function: T;

  TAuto<T: class> = class(TInterfacedObject, Auto<T>)
  private
    FValue: T;
  public
    constructor Create(AValue: T);
    destructor Destroy; override;
    function Invoke: T;
  end;

  Auto = class
  public
    class function Wrap<T: class>(AValue: T): Auto<T>; static;
  end;

>> Compile Error: interface type expected, but got "TAuto$1.<procedure variable type of function:T of object;Register>"

Please Log in or Create an account to join the conversation.