ftysample.pas

来自「数据库封装原代码 1. 该代码可以免费使用, 该代码的名字暂时定为"哲别" 2」· PAS 代码 · 共 32 行

unit FtySample;

interface

uses SysUtils, EntityFactory, Entity, EtyUser, EtySumAge;

type
  TFtySample = class(TInterfacedObject, IEntityFactory)
  public
    function CreateEntity(strEntityName : String) : IEntity;
  end;

implementation

//-----------------------------------------------------------------------------
//                              GetEntityName
//-----------------------------------------------------------------------------
function TFtySample.CreateEntity(strEntityName : String) : IEntity;
begin
  strEntityName := LowerCase(strEntityName);

  if (strEntityName = LowerCase(TEtyUser.Create.GetEntityName)) then
    Result := TEtyUser.Create
  else if (strEntityName = LowerCase(TEtySumAge.Create.GetEntityName)) then
    Result := TEtySumAge.Create
  else
    Result := nil;
end;

end.