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

* Fix for the case that the begin and enddelimiter are the same

Browse Source 
git-svn-id: trunk@15191 -
This commit is contained in:
joost 2010-04-27 09:19:24 +00:00
parent 62592322e1
commit 983c0e6765
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -492,6 +492,7 @@ begin
else else
begin begin
I:=TS-P; I:=TS-P;
inc(TS,Length(FStartDelimiter));
TE:=FindDelimiter(TS,FEndDelimiter,SLen-I+1); TE:=FindDelimiter(TS,FEndDelimiter,SLen-I+1);
If (TE=Nil) then If (TE=Nil) then
begin begin
@ -503,7 +504,6 @@ begin
// Add text prior to template to result // Add text prior to template to result
AddToString(Result,P,I); AddToString(Result,P,I);
// retrieve template name // retrieve template name
inc(TS,Length(FStartDelimiter));
I:=TE-TS; I:=TE-TS;
Setlength(PN,I); Setlength(PN,I);
Move(TS^,PN[1],I); Move(TS^,PN[1],I);