Well, I'm guessing generics aren't really ready to be fully used... I'm getting
an error "There is no method in an ancestor class to be overridden" where the
ancestor class was a specialized generic. Doesn't seem very promising for
actual use.
So I'm abandoning generics for now. Hopefully they'll become more usable in the
future!
Keep up the good work, guys
Cheers,
David
...here's what I couldn't do:
generic gt_point<_num> = class
f_left, f_top : _num;
procedure set_lt (l, t : _num); virtual;
end;
procedure gt_point.set_lt (l, t : _num);
begin
f_left := l;
f_top := t;
end;
generic gt_box<_t_point,_num> = class (_t_point) // FAILS :-(
f_width, f_height : _num;
end;
t_real_point = specialize gt_point<single>;
t_real_box = specialize gt_box<t_real_point,single>;
t_special_real_box = class (t_real_box)
procedure set_lt (l, t : single); override; // FAILS :-(
end;
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
