Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added ToFree<T>

Browse Source
This commit is contained in:
Daniele Teti 2024-11-03 17:21:23 +01:00
parent b1c2a87200
commit beef11fba9
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
sources/MVCFramework.pas
View File

@ -893,9 +893,10 @@ type
TMVCController = class(TMVCRenderer)
private
FViewModel: TMVCViewDataObject;
fViewModel: TMVCViewDataObject;
fPageHeaders: TArray<String>;
fPageFooters: TArray<String>;
fFreeList: TObjectList<TObject>;
function GetSession: TMVCWebSession;
function GetViewData(const aModelName: string): TValue;
procedure SetViewData(const aModelName: string; const Value: TValue);
@ -905,6 +906,11 @@ type
procedure MVCControllerAfterCreate; virtual;
procedure MVCControllerBeforeDestroy; virtual;
/// <summary>
/// After action execution frees all the objects added. Works only with functional actions.
/// </summary>
function ToFree<T: class>(aObject: T): T; overload;
procedure OnBeforeAction(AContext: TWebContext; const AActionName: string;
var AHandled: Boolean); virtual;
procedure OnAfterAction(AContext: TWebContext; const AActionName: string); virtual;
@ -2953,6 +2959,7 @@ begin
end;
end;
finally
lSelectedController.fFreeList.Free;
lSelectedController.OnAfterAction(lContext, lRouterMethodToCallName);
end;
end;
@ -4193,6 +4200,16 @@ begin
Result := GetSHA1HashFromString(Data);
end;
function TMVCController.ToFree<T>(aObject: T): T;
begin
if not Assigned(fFreeList) then
begin
fFreeList := TObjectList<TObject>.Create(True);
end;
fFreeList.Add(aObject);
Result := aObject;
end;
function TMVCController.GetIfMatch: String;
begin
Result := Context.Request.GetHeader('If-Match');