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

Updated TemplatePro

Browse Source
This commit is contained in:
Daniele Teti 2024-09-06 16:22:21 +02:00
parent 9c93f03d24
commit a098584994
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
sources/TemplatePro.pas
View File

@ -490,7 +490,7 @@ end;
function TTProCompiler.CurrentChar: Char;
begin
Result := fInputString.Chars[fCharIndex];
Result := fInputString.Chars[fCharIndex]
end;
function TTProCompiler.MatchEndTag: Boolean;
@ -680,7 +680,15 @@ begin
lCurrentSectionIndex := -1;
fInputString := aTemplate;
lStartVerbatim := 0;
Step;
if fInputString.Length > 0 then
begin
Step;
end
else
begin
aTokens.Add(TToken.Create(ttEOF, '', ''));
fCharIndex := 1; {doesnt' execute while}
end;
while fCharIndex <= fInputString.Length do
begin
lChar := CurrentChar;
@ -2032,7 +2040,22 @@ begin
if lJPath.IsEmpty then
Result := lJObj
else
Result := lJObj.Path[lJPath].Value;
begin
lPJSONDataValue := lJObj.Path[lJPath];
if lPJSONDataValue.Typ = jdtString then
begin
Result := lJObj.Path[lJPath].Value
end
else if lPJSONDataValue.Typ = jdtArray then
begin
Result := lPJSONDataValue.ArrayValue;
end else if lPJSONDataValue.Typ = jdtObject then
begin
Result := lPJSONDataValue.ObjectValue;
end
else
raise ETProRenderException.Create('Unknown type for path ' + lJPath);
end;
end;
end
else if viListOfObject in lVariable.VarOption then