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

* Make argument aPositions const in TFileSearchMatch.create

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-09-27 09:58:20 +02:00
parent d1374fe7cb
commit 60d8403bcd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/filebrowser/ctrlfilebrowser.pas
View File

@ -28,7 +28,7 @@ Type
FFileName: string;
FMatchPositions : TMatchPositionArray;
Public
Constructor create(const aFileName : string; aEntry : TFileEntry; aPositions : TMatchPositionArray);
Constructor create(const aFileName : string; aEntry : TFileEntry; const aPositions : TMatchPositionArray);
Property FileName : string Read FFileName;
Property Entry : TFileEntry Read FEntry;
Property MatchPositions : TMatchPositionArray Read FMatchPositions;
@ -125,7 +125,7 @@ uses Controls, StrUtils, IDEMsgIntf, IDEExternToolIntf, LazConfigStorage;
{ TFileSearchMatch }
constructor TFileSearchMatch.create(const aFileName: string;
aEntry: TFileEntry; aPositions: TMatchPositionArray);
aEntry: TFileEntry; const aPositions: TMatchPositionArray);
begin
FFileName:=aFileName;
FEntry:=aEntry;