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

* Patch from Graeme Geldenhuys to fix typos (bug ID 33708)

Browse Source 
git-svn-id: trunk@38947 -
This commit is contained in:
michael 2018-05-08 07:25:09 +00:00
parent 48f7b40cf4
commit f4d562ba11
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-report/src/fpreport.pp
View File

@ -1973,7 +1973,7 @@ type
function SubStr(const ASource, AStartDelim, AEndDelim: string; AIndex: integer; out AStartPos: integer): string; function SubStr(const ASource, AStartDelim, AEndDelim: string; AIndex: integer; out AStartPos: integer): string;
{ Count the number of blocks of text in AValue separated by AToken } { Count the number of blocks of text in AValue separated by AToken }
function TokenCount(const AValue: string; const AToken: string = '['): integer; function TokenCount(const AValue: string; const AToken: string = '['): integer;
{ Return the n-th token defined by APos. APas is 1-based. } { Return the n-th token defined by APos. APos is 1-based. }
function Token(const AValue, AToken: string; const APos: integer): string; function Token(const AValue, AToken: string; const APos: integer): string;
// ---------------> End <----------------- // ---------------> End <-----------------

2
packages/fcl-report/src/fpreporthtmlparser.pp
View File

@ -104,7 +104,7 @@
the old ExecUpcase the old ExecUpcase
0.5 - Graeme Geldenhuys <graeme@geldenhuys.co.uk> 0.5 - Graeme Geldenhuys <graeme@geldenhuys.co.uk>
New functions to extract attibute details from the tags. New functions to extract attribute details from the tags.
// //
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%