paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 06:50:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, TDBDateDeit: Display date as empty string when its value in database is NULL. Patch by Don Siders, issue #40661.

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-12-29 03:33:50 +03:00
parent aae0c2019e
commit 72fd05acc7
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/dbdateedit.inc
View File

@ -12,7 +12,7 @@
procedure TDBDateEdit.DataChange(Sender: TObject); procedure TDBDateEdit.DataChange(Sender: TObject);
begin begin
if FDataLink.Field <> nil then if (FDataLink.Field <> nil) and (not FDataLink.Field.IsNull) then
Self.Date := FDataLink.Field.AsDateTime Self.Date := FDataLink.Field.AsDateTime
else else
Text := ''; Text := '';