From 1b18f09376736578b7f003bca51e569ba1134a10 Mon Sep 17 00:00:00 2001
From: rich2014 <rich2014.git@outlook.com>
Date: Sat, 15 Jun 2024 21:30:31 +0800
Subject: [PATCH] dbmemo: Fix blob issue in TDBMemo.LoadMemo()

---
 lcl/include/dbmemo.inc | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lcl/include/dbmemo.inc b/lcl/include/dbmemo.inc
index 1073645087..20243faa59 100644
--- a/lcl/include/dbmemo.inc
+++ b/lcl/include/dbmemo.inc
@@ -255,15 +255,19 @@ begin
 end;
 
 procedure TDBMemo.LoadMemo;
+var
+  newText: String;
 begin
   if not FDBMemoLoaded and (FDataLink.Field<>nil)
   and FDataLink.Field.IsBlob then begin
     try
       // issue #33598: Possibility to change field text in OnGetText
       if Assigned(FDataLink.Field.OnGetText) then
-        Lines.Text := FDataLink.Field.Text
+        newText := FDataLink.Field.Text
       else 
-        Lines.Text := FDataLink.Field.AsString;
+        newText := FDataLink.Field.AsString;
+      if Lines.Text <> newText then
+        Lines.Text:= newText;
       FDBMemoLoaded:=True;
     except
       on E:EInvalidOperation do