Hi
what is the equivalence of this code using mode objfpc ? btw , it compile fine with {$mode delphi}

type
     obj<T> = object
		x : T;
		class operator add (arg1 ,arg2 : obj<T>):obj<T>; inline;
     end;
class operator obj<T>.add (arg1 ,arg2 : obj<T>):obj<T>;
begin
	result.x := arg1.x + arg2.x;
end;

misu kun wrote

Hi what is the equivalence of this code using mode objfpc ? btw , it compile fine with {$mode delphi}

See: http://wiki.freepascal.org/Generics

Also look at the FPC Language Reference documentation for Generics. The syntax is slightly different to Delphi.

Regards,
- Graeme -

thanks
in objfpc mode i can imagine this ,but it didn't work unless i specialize (obj)

type
     generic obj<T> = object
		x : T;
     end;
operator + (arg1 ,arg2 : obj):obj; // error : here (obj) needs specialization
begin
	result.x := arg1.x + arg2.x;
end;

"misu kun" wrote

thanks in objfpc mode i can imagine this ,but it didn't work unless i specialize

(obj)

specialization

begin result.x := arg1.x + arg2.x; end;

The method needs to be part of the object (you should use "record" though) like in the mode-Delphi-code, for this you need to add {$modeswitch advancedrecords} after the {$mode objfpc} directive.

Regards,
Sven

specialize (obj)

specialization

though) like in the mode-Delphi-code, for this you need to add {$modeswitch advancedrecords} after the {$mode objfpc} directive.

And just to be clear: it needs to be "class operator +" inside of "obj".

Regards,
Sven

thanks so much Sven ,