paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 13:09:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazreport: add const to method string parameters

Browse Source 
git-svn-id: trunk@32927 -
This commit is contained in:
blikblum 2011-10-16 20:11:46 +00:00
parent 4ff03734cb
commit bba0819501
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazreport/source/lr_class.pas
View File

@ -1536,7 +1536,7 @@ begin
frReadMemo22(Stream, Memo);
end;
procedure CreateDS(Desc: String; var DataSet: TfrDataSet; var IsVirtualDS: Boolean);
procedure CreateDS(const Desc: String; var DataSet: TfrDataSet; var IsVirtualDS: Boolean);
begin
if (Desc <> '') and (Desc[1] in ['1'..'9']) then
begin

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

@ -41,7 +41,7 @@ procedure frGetDataSetAndField(ComplexName: String;
function frGetFontStyle(Style: TFontStyles): Integer;
function frSetFontStyle(Style: Integer): TFontStyles;
procedure frInitFont(aFont : TFont; aColor : TColor; aSize : Integer; aStyle : TFontStyles);
function frFindComponent(Owner: TComponent; Name: String): TComponent;
function frFindComponent(Owner: TComponent; const Name: String): TComponent;
procedure frGetComponents(Owner: TComponent; ClassRef: TClass;
List: TStrings; Skip: TComponent);
@ -377,7 +377,7 @@ begin
end;
end;
function frFindComponent(Owner: TComponent; Name: String): TComponent;
function frFindComponent(Owner: TComponent; const Name: String): TComponent;
var
n: Integer;
s1, s2, s3: String;