From 72fd05acc7aebf044950b1f9dbc85608a4bc24c3 Mon Sep 17 00:00:00 2001
From: Maxim Ganetsky <maxim@lazarus-ide.org>
Date: Fri, 29 Dec 2023 03:33:50 +0300
Subject: [PATCH] LCL, TDBDateDeit: Display date as empty string when its value
 in database is NULL. Patch by Don Siders, issue #40661.

---
 lcl/include/dbdateedit.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/dbdateedit.inc b/lcl/include/dbdateedit.inc
index 2c6b7ed904..8a6baa91f4 100644
--- a/lcl/include/dbdateedit.inc
+++ b/lcl/include/dbdateedit.inc
@@ -12,7 +12,7 @@
 
 procedure TDBDateEdit.DataChange(Sender: TObject);
 begin
-  if FDataLink.Field <> nil then
+  if (FDataLink.Field <> nil) and (not FDataLink.Field.IsNull) then
     Self.Date := FDataLink.Field.AsDateTime
   else
     Text := '';