Personale/Router4Delphi
1
0
Fork 0
mirror of https://github.com/CloudDelphi/Router4Delphi.git synced 2025-12-19 08:43:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

Update Router4D.History.pas

Browse Source
This commit is contained in:
Thulio Bittencourt 2021-03-29 12:39:03 -03:00 committed by GitHub
parent d3255add17
commit f0361612ce
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/Router4D.History.pas
View File

@ -111,7 +111,7 @@ var
begin
Result := Self;
if not FListCacheContainer.TryGetValue(aKey, auxObject) then
FListCacheContainer.TryAdd(aKey, aObject);
FListCacheContainer.Add(aKey, aObject);
end;
function TRouter4DHistory.GetHistoryContainer(aKey: String): TFMXObject;
@ -147,7 +147,7 @@ var
begin
Result := Self;
if not FListCacheContainer.TryGetValue(aKey, auxObject) then
FListCacheContainer.TryAdd(aKey, aObject);
FListCacheContainer.Add(aKey, aObject);
end;
function TRouter4DHistory.GetHistoryContainer(aKey: String): TPanel;
@ -203,7 +203,7 @@ begin
exit;
end;
FListCache.TryAdd(aKey, aObject);
FListCache.Add(aKey, aObject);
end;
@ -230,30 +230,9 @@ begin
CachePersistent.FPersistentClass := aObject;
CachePersistent.FSBKey := aSBKey;
try FListCache2.TryAdd(aKey, CachePersistent); except end;
try FListCache2.Add(aKey, CachePersistent); except end;
end;
//procedure TRouter4DHistory.CacheKeyNotify(Sender: TObject; const Key: string;
// Action: TCollectionNotification);
//begin
// inherited;
//
// case Action of
// cnAdded:
// begin
// Self.FListCacheOrder.Add(Key);
// Self.FIndexCache := Self.FListCacheOrder.Count-1;
// end;
//
// cnRemoved:
// begin
// Self.FListCacheOrder.Remove(Key);
// Self.FIndexCache := Self.FListCacheOrder.Count-1;
// end;
// end;
//
//end;
constructor TRouter4DHistory.Create;
begin
FListCache := TObjectDictionary<String, TObject>.Create;