From 459935b75e97a4752a2621fa55fd8d47f4250789 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 11 Aug 2020 11:30:41 +0000
Subject: [PATCH] * Fix declaration : add const (bug ID 37541, by Henrique
 Werlang)

---
 packages/fcl-db/db.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-db/db.pas b/packages/fcl-db/db.pas
index bcb246b..67eab1b 100644
--- a/packages/fcl-db/db.pas
+++ b/packages/fcl-db/db.pas
@@ -1378,7 +1378,7 @@ type
     property RecordSize: Word read GetRecordSize;
     property State: TDataSetState read FState;
     property Fields : TFields read FFieldList;
-    property FieldValues[FieldName : string] : JSValue read GetFieldValues write SetFieldValues; default;
+    property FieldValues[const FieldName : string] : JSValue read GetFieldValues write SetFieldValues; default;
     property Filter: string read FFilterText write SetFilterText;
     property Filtered: Boolean read FFiltered write SetFiltered default False;
     property FilterOptions: TFilterOptions read FFilterOptions write SetFilterOptions;