fcl-base/tests/tests_fptemplate.pp

38     templ.Values['dream'] := 'think';
41                  templ.ParseString('This is the simplest {test} I could {dream} of.'));
47                templ.ParseString('This is the simplest {test} I could {dream} of.'));
62     templ.Values['dream'] := 'think';
65                  templ.ParseString('This is [the] simplest [-test) I could [-dream) (of).'));
70     templ.Values['dream'] := 'think';
73                  templ.ParseString('This is [the] simplest (test-) I could (dream-) of:-).'));
90 …           templ.ParseString('This is the simplest {test [- param1=test -]} I could {dream} of.'));
93 …            templ.ParseString('This is the simplest {test[- param1=test -]} I could {dream} of.'));
97 …           templ.ParseString('This is the simplest {test [- param1:test -]} I could {dream} of.'));
100 …            templ.ParseString('This is the simplest {test [-param1:test -]} I could {dream} of.'));
103 …           templ.ParseString('This is the simplest {test  [-param1:test -]} I could {dream} of.'));
161   else if TagString='dream' then ReplaceText := 'think';