Unit Unit1;
interface
uses
fgl;
type
{ TVec2 }
TVec2 = object
end;
operator = ( A, B: TVec2 ): Boolean; //declare operator before specialization
type //start a new type section after operator declaration
TVec2List = specialize TFPGList < TVec2 >;
implementation
operator = ( A, B: TVec2 ): Boolean;
begin
Result:= True;
end;
end.