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

Adjusted lazy-loading TDictionary

Browse Source
This commit is contained in:
viniciussanchez 2019-07-26 14:28:45 -03:00
parent 7004afd101
commit ca5278c4ac
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
sources/MVCFramework.pas
View File

@ -169,6 +169,7 @@ type
TMVCWebRequest = class
private
FContentFields: TDictionary<string, string>;
FWebRequest: TWebRequest;
FSerializers: TDictionary<string, IMVCSerializer>;
FBody: string;
@ -1101,6 +1102,10 @@ end;
destructor TMVCWebRequest.Destroy;
begin
inherited Destroy;
if Assigned(FContentFields) then
begin
FContentFields.Free;
end;
end;
procedure TMVCWebRequest.EnsureQueryParamExists(const AName: string);
@ -1114,18 +1119,24 @@ var
I: Integer;
lParam: TStrings;
begin
Result := TDictionary<string, string>.Create;
if Assigned(FContentFields) then
begin
Result := FContentFields;
Exit;
end;
FContentFields := TDictionary<string, string>.Create;
lParam := TStringList.Create;
try
lParam.Delimiter := '=';
for I := 0 to Pred(FWebRequest.ContentFields.Count) do
begin
lParam.DelimitedText := FWebRequest.ContentFields[I];
Result.Add(lParam[0], lParam[1]);
FContentFields.Add(lParam[0], lParam[1]);
end;
finally
lParam.Free;
end;
Result := FContentFields;
end;
function TMVCWebRequest.GetFiles: TAbstractWebRequestFiles;