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

Update Router4D.History.pas

Browse Source 
Remoção de Função não utilizada
This commit is contained in:
Thulio Bittencourt 2021-03-18 12:18:23 -03:00
parent 429ddb1a74
commit f94ac39b6d
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/Router4D.History.pas
View File

@ -43,7 +43,7 @@ type
FListCacheOrder : TList<String>;
FIndexCache : Integer;
procedure CreateInstancePersistent( aPath : String);
procedure CacheKeyNotify(Sender: TObject; const Key: string; Action: TCollectionNotification);
//procedure CacheKeyNotify(Sender: TObject; const Key: string; Action: TCollectionNotification);
public
constructor Create;
destructor Destroy; override;
@ -233,26 +233,26 @@ begin
try FListCache2.TryAdd(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;
//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