RealICQClient/Includes/MyBean/samples/ObjectMap/plug-Map/interface/uMyBeanMapTools.pas

unit uMyBeanMapTools;

interface

uses
  uIMapObject, mybean.tools.beanFactory;

type
  TMyBeanMapTools = class(TObject)
  public
    class function getObject(pvKey:string): TObject;
    class procedure removeAndFreeObject(pvKey:string);
    class procedure setObject(pvKey:String; pvObject:TObject);
  end;


implementation

class function TMyBeanMapTools.getObject(pvKey:string): TObject;
begin
  Result := (TMyBeanFactoryTools.getBean('objMap') as IMapObject).getObject(pvKey);
end;

class procedure TMyBeanMapTools.removeAndFreeObject(pvKey: string);
var
  lvObj:TObject;
begin
  lvObj := getObject(pvKey);
  if (lvObj <> nil) then
  begin
    (TMyBeanFactoryTools.getBean('objMap') as IMapObject).removeObject(pvKey);
    try
      lvObj.Free;
    except
    end;
  end;
end;

class procedure TMyBeanMapTools.setObject(pvKey: String; pvObject: TObject);
var
  lvObj:TObject;
begin
  lvObj := getObject(pvKey);
  if lvObj <> nil then
  begin   //ÊÍ·Å֮ǰµÄ¶ÔÏó
    try
      lvObj.Free;
    except
    end;
  end;
  (TMyBeanFactoryTools.getBean('objMap') as IMapObject).setObject(pvKey, pvObject);
end;

end.