What's wrong with ... procedure FreeThis; overload; begin end;
procedure FreeThis(var obj: TObject); overload; begin end; There, now you have an optional argument with a var reference.
_______________________________________________ fpc-pascal maillist - [email protected] http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
