From e6cd329fc443fe5e9d6b1eaed2ab33179d78495d Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Tue, 3 Apr 2018 07:57:45 +0000
Subject: [PATCH] lcl: Undo r57591 #2bad73f4cf (breaks display of DBMemo if no
 OnGetText/OnSetText handler is attached).

git-svn-id: trunk@57595 -
---
 lcl/include/dbmemo.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/include/dbmemo.inc b/lcl/include/dbmemo.inc
index 4023468f5f..98d4ed26c2 100644
--- a/lcl/include/dbmemo.inc
+++ b/lcl/include/dbmemo.inc
@@ -100,7 +100,7 @@ procedure TDBMemo.UpdateData(Sender: TObject);
 begin
   if not FDBMemoLoaded then exit;
   if not FDataLink.CanModify then exit;
-  FDataLink.Field.Text := Text;
+  FDataLink.Field.AsString := Text;
 end;
 
 constructor TDBMemo.Create(TheOwner: TComponent);
@@ -236,7 +236,7 @@ begin
   if not FDBMemoLoaded and (FDataLink.Field<>nil)
   and FDataLink.Field.IsBlob then begin
     try
-      Lines.Text := FDataLink.Field.Text;
+      Lines.Text := FDataLink.Field.AsString;
       FDBMemoLoaded:=True;
     except
       on E:EInvalidOperation do