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

LCL: DBImage: fixed loading NULL blobs from Michael Van Canneyt (bug #10711)

Browse Source 
git-svn-id: trunk@14122 -
This commit is contained in:
vincents 2008-02-13 15:14:08 +00:00
parent 40c644d22f
commit 4c570d42ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dbimage.inc
View File

@ -152,7 +152,7 @@ begin
exit;
end;
s := FDataLink.DataSet.CreateBlobStream(FDataLink.Field,bmRead);
if s.Size = 0 then
if (S=Nil) or (s.Size = 0) then
begin
Picture.Clear;
exit;