Design Pattern----03.Creational.FactoryMethod.Pattern (Delphi Sample)

Intent

• Define an interface for creating an object, but let subclasses decide which class to instantiate. Factory Method lets a class defer instantiation to subclasses.
• Defining a “virtual” constructor.
• The new operator considered harmful.

Problem

• A framework needs to standardize the architectural model for a range of applications, but allow for individual applications to define their own domain objects and provide for their instantiation.

Discussion

• Factory Method is to creating objects as Template Method is to implementing an algorithm. A superclass specifies all standard and generic behavior (using pure virtual “placeholders” for creation steps), and then delegates the creation details to subclasses that are supplied by the client.
• Factory Method makes a design more customizable and only a little more complicated. Other design patterns require new classes, whereas Factory Method only requires a new operation.
• People often use Factory Method as the standard way to create objects; but it isn’t necessary if: the class that’s instantiated never changes, or instantiation takes place in an operation that subclasses can easily override (such as an initialization operation).
• Factory Method is similar to Abstract Factory but without the emphasis on families.
• Factory Methods are routinely specified by an architectural framework, and then implemented by the user of the framework.

Structure

• The implementation of Factory Method discussed in the Gang of Four (below) largely overlaps with that of Abstract Factory. For that reason, the presentation in this chapter focuses on the approach that has become popular since.

• An increasingly popular definition of factory method is: a static method of a class that returns an object of that class’ type. But unlike a constructor, the actual object it returns might be an instance of a subclass. Unlike a constructor, an existing object might be reused, instead of a new object created. Unlike a constructor, factory methods can have different and more descriptive names (e.g. Color.make_RGB_color(float red, float green, float blue) and Color.make_HSB_color(float hue, float saturation, float brightness)

• The client is totally decoupled from the implementation details of derived classes. Polymorphic creation is now possible.

Example

• The Factory Method defines an interface for creating objects, but lets subclasses decide which classes to instantiate. Injection molding presses demonstrate this pattern. Manufacturers of plastic toys process plastic molding powder, and inject the plastic into molds of the desired shapes. The class of toy (car, action figure, etc.) is determined by the mold.

Check list

1. If you have an inheritance hierarchy that exercises polymorphism, consider adding a polymorphic creation capability by defining a static factory method in the base class.
2. Design the arguments to the factory method. What qualities or characteristics are necessary and sufficient to identify the correct derived class to instantiate?
3. Consider designing an internal “object pool” that will allow objects to be reused instead of created from scratch.
4. Consider making all constructors private or protected.

Rules of thumb

• Abstract Factory classes are often implemented with Factory Methods, but they can be implemented using Prototype.
• Factory Methods are usually called within Template Methods.
• Factory Method: creation through inheritance. Prototype: creation through delegation.
• Often, designs start out using Factory Method (less complicated, more customizable, subclasses proliferate) and evolve toward Abstract Factory, Prototype, or Builder (more flexible, more complex) as the designer discovers where more flexibility is needed.
• Prototype doesn’t require subclassing, but it does require an Initialize operation. Factory Method requires subclassing, but doesn’t require Initialize.
• The advantage of a Factory Method is that it can return the same instance multiple times, or can return a subclass rather than an object of that exact type.
• Some Factory Method advocates recommend that as a matter of language design (or failing that, as a matter of style) absolutely all constructors should be private or protected. It’s no one else’s business whether a class manufactures a new object or recycles an old one.
• The new operator considered harmful. There is a difference between requesting an object and creating one. The new operator always creates an object, and fails to encapsulate object creation. A Factory Method enforces that encapsulation, and allows an object to be requested without inextricable coupling to the act of creation.

Delphi Sample

UML(Class Diagram)

unit Pattern;



interface



type



  IProduct = interface

  ['{2E0DD8B3-6BA2-4922-93F1-81F521B55AA9}']

    function ShipFrom: string;

  End;



  TProductA = class(TInterfacedObject, IProduct)

    function ShipFrom: string;

  end;



  TProductB = class(TInterfacedObject, IProduct)

    function ShipFrom: string;

  end;



  TDefaultProduct = class(TInterfacedObject, IProduct)

    function ShipFrom: string;

  end;



  TCreator = class

    function FactoryMethod(month: integer): IProduct;

  end;



implementation



{ TProductA }



function TProductA.ShipFrom: string;

begin

  Result := 'from South Africa';

end;



{ TProductB }



function TProductB.ShipFrom: string;

begin

  Result := 'from Spain';

end;



{ TDefaultProduct }



function TDefaultProduct.ShipFrom: string;

begin

  Result := 'not available';

end;



{ TCreator }



function TCreator.FactoryMethod(month: integer): IProduct;

begin

  if (month > 4) and (month <= 11) then begin

    Result := TProductA.Create;

  end else if (month in [1,2,12]) then  begin

    Result := TProductB.Create;

  end else

    Result := TDefaultProduct.Create;

end;



end.

-----------------------------------------------------------------------------------------------------------------

program Creational.FactoryMethod.Pattern; 



{$APPTYPE CONSOLE} 



uses

  SysUtils,

  Pattern in 'Pattern.pas'; 



var

  c: TCreator;

  product: IProduct;

  i: integer; 



begin

//  ReportMemoryLeaksOnShutDown := DebugHook  0;

  try

    c := TCreator.Create;

    try

      for i := 1 to 12 do begin

        product := c.FactoryMethod(i);

        WriteLn('Avokados ' + product.ShipFrom);

      end;

      ReadLn;

    finally

      c.Free;

    end;

  except

    on E:Exception do

      Writeln(E.Classname, ': ', E.Message);

  end;

end.

Download

Delphi Source