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

dbmemo: Fix blob issue in TDBMemo.LoadMemo()

Browse Source
This commit is contained in:
rich2014 2024-06-15 21:30:31 +08:00
parent 84bc039c0f
commit 1b18f09376
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dbmemo.inc
View File

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