Delphi代码大全

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操作的部分函数用到了它。

这样就完成了。

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