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

lazreport: UTF8Index: removed parameter S

Browse Source 
git-svn-id: trunk@36426 -
This commit is contained in:
mattias 2012-03-29 10:07:35 +00:00
parent 38dd89f95d
commit 104b789157
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazreport/source/lr_utils.pas
View File

@ -58,7 +58,7 @@ function lrValidFieldReference(s: string):boolean;
function UTF8Desc(S:string; var Desc: string): Integer; function UTF8Desc(S:string; var Desc: string): Integer;
function UTF8Char(S:string; index:Integer; Desc:string): TUTF8Char; function UTF8Char(S:string; index:Integer; Desc:string): TUTF8Char;
function UTF8Range(S:string; index,count:Integer; Desc:String):string; function UTF8Range(S:string; index,count:Integer; Desc:String):string;
function UTF8Index(S:string; index:integer; desc:string): Integer; function UTF8Index(index:integer; desc:string): Integer;
function UTF8CharIn(ch:TUTF8Char; const arrstr:array of string): boolean; function UTF8CharIn(ch:TUTF8Char; const arrstr:array of string): boolean;
function UTF8QuotedStr(s:string; Quote: TUTF8Char; desc:string=''): string; function UTF8QuotedStr(s:string; Quote: TUTF8Char; desc:string=''): string;
@ -679,7 +679,7 @@ begin
inc(i); inc(i);
Dec(Count); Dec(Count);
end; end;
i := UTF8Index(S, Index, Desc); i := UTF8Index(Index, Desc);
if i>0 then begin if i>0 then begin
SetLength(Result, c); SetLength(Result, c);
Move(S[i],Result[1],c); Move(S[i],Result[1],c);
@ -687,7 +687,7 @@ begin
end; end;
// this assume index is in valid range // this assume index is in valid range
function UTF8Index(S: string; index: integer; desc: string): Integer; function UTF8Index(index: integer; desc: string): Integer;
var var
i,c: integer; i,c: integer;
begin begin