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

lazreport: add const to string params; remove not used unit (Graphics)

Browse Source 
git-svn-id: trunk@52653 -
This commit is contained in:
blikblum 2016-07-10 12:11:47 +00:00
parent 6e1055dabd
commit 4f81d97579
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazreport/source/lr_intrp.pas
View File

@ -14,7 +14,7 @@ interface
{$I LR_Vers.inc}
uses Classes, SysUtils, Graphics, LR_Pars;
uses Classes, SysUtils, LR_Pars;
type
TCharArray = array [0..31999] of Char;
@ -198,7 +198,7 @@ begin
end;
{------------------------------------------------------------------------------}
function Remain(S: String; From: Integer): String;
function Remain(const S: String; From: Integer): String;
begin
Result := Copy(s, From, Length(s) - 1);
end;
@ -315,7 +315,7 @@ procedure DoFuncId; forward;
Result := MemoTo.Count;
end;
procedure AddLabel(s: String; n: Integer);
procedure AddLabel(const s: String; n: Integer);
var
i: Integer;
f: Boolean;
@ -331,7 +331,7 @@ procedure DoFuncId; forward;
end;
end;
procedure AddError(s: String);
procedure AddError(const s: String);
var
i, j, c: Integer;
s1: String;