Overloading operator with LGenerics not working

[Frogfather]

Hello,

I'm trying out the TGComparableBinHeapMin class from the LGenerics package.

This requires that the type used in the queue has defined the comparison operator <

So I have

Code: Pascal  [Select][+][-]

1. type
2.    TMyType = record
3.     someProperty:integer;
4.     end;
5.  
6. operator < (a, b: TMyType): Boolean;  
7.  

and then in the implementation

Code: Pascal  [Select][+][-]

1. var
2.   pq__: specialize TGComparableBinHeapMin<TMyType>;  
3.  
4. operator < (a, b: TMyType): Boolean;
5. begin
6.   result:= a.someProperty < b.someProperty;
7. end;  
8.  

 

Unfortunately the compiler complains that
lgpriorityqueue.pas(1004,15) Error: Operator is not overloaded: "TMyType" < "TMyType"

I've. not tried operator overloading before so it's entirely possible I'm doing something very obvious but if anyone could point me in the correct direction it would be appreciated!

Thanks

John C

[TRon]

Make it an record operator instead of a global one. see manual

[Thaddy]

The lgenerics part is not relevant given your code. And that code simply works:

Code: Pascal  [Select][+][-]

1. {$mode objfpc}
2. type
3.    TMyType = record
4.     someProperty:integer;
5.     end;
6.  
7. operator < (const a, b: TMyType): Boolean;
8. begin
9.   result:= a.someProperty < b.someProperty;
10. end;  
11. begin
12. end.
13.  

So what is your real question?

[bytebites]

Similar case https://forum.lazarus.freepascal.org/index.php?topic=60376.0

[Frogfather]

TRon

Many thanks that works!

Best wishes

John C