簡單原廠模式(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操作的部分函數用到了它。

  這樣就完成了。  

  如有什麼錯誤，請與我聯絡