简单工厂模式(Simple Factory Pattern)Delphi代码

    昨天下午，看完 guoyan19811021 的设计模式之简单工厂模式（Simple Factory Pattern）（参见http://www.csdn.net/Develop/read_article.asp?id=26635）  之后，为了加深印象，我把上面的VB.Net改成了Delphi，未必有很大的意义，但还是贴出来，与大家共享。

 首先建一个基类 CName,如下 

 type
  CName= Class
    private
     { Public declarations }
    public
     { protected declarations}
     function getFirstName:string;
     function getLastName:string;
    protected
     { Private declarations }
      m_sFirstName:string;
      m_sLastName:string;
  end;

下面是2个继承类

type
  CFirst001= Class(CName)
    public
     { Public declarations }
     constructor Create(a_sInput:string);
    protected
     { protected declarations}
    private
     { Private declarations }
    end;

type
  CFirst002 = Class(CName)
    public
     { Public declarations }
     constructor Create(a_sInput:string);
    protected
     { protected declarations}
    private
     { Private declarations }
    end;

简单工厂类

type
  CNameFactory = Class
   public
     { Public declarations }
     function getName(a_sInput:string):CName;
   protected
     { Protected declarations }
   private
     { Private declarations }
  end;

以下是各个函数的实现部分

  function CName.getFirstName:string;
Begin
  result := m_sFirstName;
End;

function CName.getLastName:string;
Begin
  result := m_sLastName;
End;

constructor CFirst001.Create(a_sInput:string);
var i:integer;
Begin
  inherited Create;
  //Add code here
  i := Pos(' ',a_sInput);
  if(i > 0) then begin //can find the ' '(space)
       m_sFirstName := Copy(a_sInput,1,i - 1);
       m_sFirstName := Trim(m_sFirstName);

       m_sLastName := Copy(a_sInput,i + 1,Length(a_sInput) - i);
       m_sLastName := Trim(m_sLastName);
       end
  else begin   //can't  find the ' '(space)
       m_sFirstName := '';
       m_sLastName := a_sInput;
       end;

End;

 

constructor CFirst002.Create(a_sInput:string);
var
   i,j:integer;
Begin
  inherited Create;
 //Add code here
  i := Pos(',',a_sInput);
  if(i > 0) then begin //can find the ' '(space)
       m_sFirstName := Copy(a_sInput,1,i - 1);
       m_sFirstName := Trim(m_sFirstName);

       m_sLastName := Copy(a_sInput,i + 1,Length(a_sInput) - i);
       m_sLastName := Trim(m_sLastName);
       end
  else begin   //can't  find the ' '(space)
       m_sFirstName := '';
       m_sLastName := a_sInput;
       end;

End;

 

function CNameFactory.getName(a_sInput:string):CName;
var i:integer;
Begin
   i := Pos(',',a_sInput);
   if(i > 0) then
   begin
    result := CFirst002.Create(a_sInput);
   end
   else begin
    result := CFirst001.Create(a_sInput);
   end;
End;

  当然，仅仅这样是不能够运行的，还需要在interface 部分加上uses
Sysutils;因为string操作的部分函数用到了它。

  这样就完成了。  

  如有什么错误，请与我联系