Welcome, Guest

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

Page:
1

TOPIC:

smart pointer 9 years 1 month ago #9628

sakata
Topic Author
Offline
New Member
Posts: 1
Thank you received: 0

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.

smart pointer 9 years 1 month ago #9630

Sternas Stefanos Offline Moderator Ex Pilot, M.Sc, Ph.D Posts: 4565 Thank you received: 1123	Please Sir read this PS: For your info, many PilotLogic programmers, don't like Delphi Pascal with generics. PilotLogic Architect and Core Programmer
	Please Log in or Create an account to join the conversation. Last edit: by Sternas Stefanos.

Page:
1

Forum

CodeTyphon Studio

CT General Discussions

smart pointer