paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 02:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Removed the restriction that ParseString could only be called 100 times

Browse Source 
git-svn-id: trunk@15190 -
This commit is contained in:
joost 2010-04-27 08:49:15 +00:00
parent 3759ad8963
commit 62592322e1
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-base/src/fptemplate.pp
View File

@ -64,6 +64,7 @@ Type
function GetValue(Key : String): String;
procedure SetDelimiter(Index: integer; const AValue: TParseDelimiter);
procedure SetValue(Key : String; const AValue: String);
Function IntParseString(Src : String) : String;
Public
Constructor Create;
Destructor Destroy; override;
@ -290,7 +291,7 @@ begin
FOnGetParam(Self,Key,AValue);
end;
If Result and Recursive then
AValue:=ParseString(AValue);
AValue:=IntParseString(AValue);
end;
function TTemplateParser.ReplaceTag(const Key: String; TagParams:TStringList; out ReplaceWith: String): Boolean;
@ -405,6 +406,12 @@ begin
end;
function TTemplateParser.ParseString(Src: String): String;
begin
FParseLevel:=0;
Result:=IntParseString(Src);
end;
function TTemplateParser.IntParseString(Src: String): String;
Var
PN,PV,ReplaceWith : String;
@ -529,7 +536,6 @@ begin
Finally
SS.Free;
end;
FParseLevel := 0;
R:=ParseString(S);
Result:=Length(R);
If (Result>0) then
@ -543,10 +549,7 @@ Var
begin
For I:=0 to Src.Count-1 do
begin
FParseLevel := 0;
Dest.Add(ParseString(Src[i]));
end;
end;
{ TFPCustomTemplate }
@ -619,7 +622,7 @@ begin
Result:=S.DataString;
end
else
Result:=P.ParseString(FTemplate);
Result:=P.IntParseString(FTemplate);
Finally
P.Free;
end;