paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 18:49:30 +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); frReadMemo22(Stream, Memo);
end; end;
procedure CreateDS(Desc: String; var DataSet: TfrDataSet; var IsVirtualDS: Boolean); procedure CreateDS(const Desc: String; var DataSet: TfrDataSet; var IsVirtualDS: Boolean);
begin begin
if (Desc <> '') and (Desc[1] in ['1'..'9']) then if (Desc <> '') and (Desc[1] in ['1'..'9']) then
begin begin

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

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