One solution:
var
animal: TDog;
BEGIN
animal := TAnimalFactory.create(atDog) as TDog;
try
animal.bark;
finally
animal.free;
end;
END.Mattias _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
