fix: ERangeError when editing text grid values which allow more than 2^31 chars, e.g. LONGTEXT

ansgarbecker · ansgarbecker · commit 42b5d52fbbb7 · 2026-01-27T16:05:16.000+01:00
diff --git a/source/bineditor.pas b/source/bineditor.pas
@@ -38,7 +38,7 @@   TfrmBinEditor = class(TExtForm)
     function GetText: String;
     procedure SetText(text: String);
     procedure SetTitleText(Title: String);
-    procedure SetMaxLength(len: integer);
+    procedure SetMaxLength(len: Int64);
     procedure SetFont(font: TFont);
     property Modified: Boolean read FModified write SetModified;
   end;
@@ -78,10 +78,10 @@ procedure TfrmBinEditor.SetTitleText(Title: String);
 end;
 
 
-procedure TfrmBinEditor.SetMaxLength(len: integer);
+procedure TfrmBinEditor.SetMaxLength(len: Int64);
 begin
   // Input: Length in bytes.
-  memoText.MaxLength := len * 2;
+  memoText.MaxLength := Integer(len * 2);
 end;
 
 procedure TfrmBinEditor.SetFont(font: TFont);
diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
@@ -74,7 +74,7 @@   THexEditorLink = class(TBaseGridEditorLink)
   private
     FForm: TfrmBinEditor;
   public
-    MaxLength: Integer;
+    MaxLength: Int64;
     TitleText: String;
     constructor Create(Tree: TVirtualStringTree; AllowEdit: Boolean; Col: TTableColumn); override;
     destructor Destroy; override;
@@ -152,7 +152,7 @@   TInplaceEditorLink = class(TBaseGridEditorLink)
     FPanel: TPanel;
     FEdit: TEdit;
     FButton: TButton;
-    FMaxLength: Integer;
+    FMaxLength: Int64;
     procedure DoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure ButtonClick(Sender: TObject);
   public
@@ -164,7 +164,7 @@   TInplaceEditorLink = class(TBaseGridEditorLink)
     function EndEdit: Boolean; override;
     function PrepareEdit(Tree: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex): Boolean; override;
     procedure SetBounds(R: TRect); override;
-    property MaxLength: Integer read FMaxLength write FMaxLength;
+    property MaxLength: Int64 read FMaxLength write FMaxLength;
   end;
 
   TColumnDefaultEditorLink = class(TBaseGridEditorLink)
diff --git a/source/texteditor.pas b/source/texteditor.pas
@@ -89,7 +89,7 @@   TfrmTextEditor = class(TExtForm)
     FClosingByCancelButton: Boolean;
     FDetectedLineBreaks,
     FSelectedLineBreaks: TLineBreaks;
-    FMaxLength: Integer;
+    FMaxLength: Int64;
     FTableColumn: TTableColumn;
     FHighlighter: TSynCustomHighlighter;
     FHighlighterFormatters: TStringList;
@@ -99,7 +99,7 @@   TfrmTextEditor = class(TExtForm)
     function GetText: String;
     procedure SetText(text: String);
     procedure SetTitleText(Title: String);
-    procedure SetMaxLength(len: integer);
+    procedure SetMaxLength(len: Int64);
     procedure SetFont(font: TFont);
     property Modified: Boolean read FModified write SetModified;
     property TableColumn: TTableColumn read FTableColumn write FTableColumn;
@@ -224,7 +224,7 @@ procedure TfrmTextEditor.SelectLinebreaks(Sender: TObject);
 end;
 
 
-procedure TfrmTextEditor.SetMaxLength(len: integer);
+procedure TfrmTextEditor.SetMaxLength(len: Int64);
 begin
   // Input: Length in number of bytes.
   FMaxLength := len;
