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 
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>; FListCacheOrder : TList<String>;
FIndexCache : Integer; FIndexCache : Integer;
procedure CreateInstancePersistent( aPath : String); procedure CreateInstancePersistent( aPath : String);
procedure CacheKeyNotify(Sender: TObject; const Key: string; Action: TCollectionNotification); //procedure CacheKeyNotify(Sender: TObject; const Key: string; Action: TCollectionNotification);
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
@ -233,26 +233,26 @@ begin
try FListCache2.TryAdd(aKey, CachePersistent); except end; try FListCache2.TryAdd(aKey, CachePersistent); except end;
end; end;
procedure TRouter4DHistory.CacheKeyNotify(Sender: TObject; const Key: string; //procedure TRouter4DHistory.CacheKeyNotify(Sender: TObject; const Key: string;
Action: TCollectionNotification); // Action: TCollectionNotification);
begin //begin
inherited; // inherited;
//
case Action of // case Action of
cnAdded: // cnAdded:
begin // begin
Self.FListCacheOrder.Add(Key); // Self.FListCacheOrder.Add(Key);
Self.FIndexCache := Self.FListCacheOrder.Count-1; // Self.FIndexCache := Self.FListCacheOrder.Count-1;
end; // end;
//
cnRemoved: // cnRemoved:
begin // begin
Self.FListCacheOrder.Remove(Key); // Self.FListCacheOrder.Remove(Key);
Self.FIndexCache := Self.FListCacheOrder.Count-1; // Self.FIndexCache := Self.FListCacheOrder.Count-1;
end; // end;
end; // end;
//
end; //end;
constructor TRouter4DHistory.Create; constructor TRouter4DHistory.Create;
begin begin