forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

use a hashmap to retrieve the IDE services

This commit is contained in:
Basile Burg 2018-04-26 15:36:36 +02:00
parent d9dd7ad6fa
commit a6b630f090
1 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ce_observer.pas
View File

@ -5,7 +5,7 @@ unit ce_observer;
interface
uses
Classes, SysUtils, Contnrs;
Classes, SysUtils, Contnrs, ce_common;
type
@ -19,8 +19,7 @@ type
function singleServiceName: string;
end;
//TServiceList = class(specialize TStringHashMap<TObject>)
//end;
TServiceList = class(specialize TStringHashMap<TObject>);
(**
* Manages the connections between the observers and their subjects in the
@ -30,7 +29,7 @@ type
private
fObservers: TObjectList;
fSubjects: TObjectList;
fServices: TObjectList;
fServices: TServiceList;
fUpdatesCount: Integer;
procedure tryUpdate;
procedure updateEntities;
@ -110,7 +109,7 @@ constructor TCEEntitiesConnector.Create;
begin
fObservers := TObjectList.Create(False);
fSubjects := TObjectList.Create(False);
fServices := TObjectList.Create(False);
fServices := TServiceList.Create();
end;
destructor TCEEntitiesConnector.Destroy;
@ -203,11 +202,9 @@ end;
procedure TCEEntitiesConnector.addSingleService(provider: TObject);
begin
if fServices.IndexOf(provider) <> -1 then
exit;
if not (provider is ICESingleService) then
exit;
fServices.Add(provider);
fServices.insert((provider as ICESingleService).singleServiceName, provider);
end;
function TCEEntitiesConnector.getSingleService(const serviceName: string): TObject;
@ -216,12 +213,8 @@ var
serv: ICESingleService;
begin
Result := nil;
for i := 0 to fServices.Count - 1 do
begin
serv := fServices[i] as ICESingleService;
if serv.singleServiceName = serviceName then
exit(fServices[i]);
end;
if not fServices.GetValue(serviceName, result) then
result := nil;
end;
{$ENDREGION}