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

IDE: added "const" for some "array of" params

Browse Source 
git-svn-id: trunk@59928 -
This commit is contained in:
martin 2018-12-28 17:51:51 +00:00
parent d0de825bcf
commit 78fdca77d0
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/anchoreditor.pas
View File

@ -247,7 +247,7 @@ begin
end;
end;
procedure SetEnabledControls(AEnabled: Boolean; AControls: array of TControl);
procedure SetEnabledControls(AEnabled: Boolean; const AControls: array of TControl);
var
i: Integer;
begin

2
ide/etsrceditmarks.pas
View File

@ -436,7 +436,7 @@ procedure Test_MergeTETSrcChanges;
var
Changes: TETSingleSrcChanges;
procedure Check(Title: string; aChanges: array of TETSrcChange);
procedure Check(Title: string; const aChanges: array of TETSrcChange);
procedure E(Msg: string);
var

4
ide/main.pp
View File

@ -404,7 +404,7 @@ type
fBuilder: TLazarusBuilder;
fOIActivateLastRow: Boolean;
function DoBuildLazarusSub(Flags: TBuildLazarusFlags): TModalResult;
procedure ProjectOptionsHelper(AFilter: array of TAbstractIDEOptionsClass);
procedure ProjectOptionsHelper(const AFilter: array of TAbstractIDEOptionsClass);
// Global IDE event handlers
procedure ProcessIDECommand(Sender: TObject; Command: word; var Handled: boolean);
procedure ExecuteIDEShortCutHandler(Sender: TObject; var Key: word;
@ -4141,7 +4141,7 @@ begin
OpenMainUnit(-1,-1,[]);
end;
procedure TMainIDE.ProjectOptionsHelper(AFilter: array of TAbstractIDEOptionsClass);
procedure TMainIDE.ProjectOptionsHelper(const AFilter: array of TAbstractIDEOptionsClass);
var
Capt: String;
begin

2
ide/searchfrm.pas
View File

@ -659,7 +659,7 @@ begin
end;
procedure TSearchProgressForm.SearchFormCREATE(Sender: TObject);
Function MaxWidth(Labs : array of TLabel) : integer;
Function MaxWidth(const Labs : array of TLabel) : integer;
var i,w : integer;
begin
Result:=0;