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 - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
