paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 08:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* AsString takes into account empty true or false. Fix issue #39371

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-01-14 10:05:28 +01:00
parent d9996607b8
commit fecc6db4c2
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/src/base/fields.inc
View File

@ -2642,7 +2642,14 @@ var Temp : string;
begin begin
Temp:=UpperCase(AValue); Temp:=UpperCase(AValue);
if Temp='' then if Temp='' then
Clear begin
if FDisplays[True,True]='' then
SetAsBoolean(True)
else if FDisplays[True,False]='' then
SetAsBoolean(False)
else
Clear
end
else if pos(Temp, FDisplays[True,True])=1 then else if pos(Temp, FDisplays[True,True])=1 then
SetAsBoolean(True) SetAsBoolean(True)
else if pos(Temp, FDisplays[True,False])=1 then else if pos(Temp, FDisplays[True,False])=1 then

4
packages/fcl-db/tests/testdbbasics.pas
View File

@ -2731,6 +2731,10 @@ begin
CheckEquals('+',Fld.DisplayText,'Correct true'); CheckEquals('+',Fld.DisplayText,'Correct true');
Fld.AsBoolean:=False; Fld.AsBoolean:=False;
CheckEquals('',Fld.DisplayText,'Correct false'); CheckEquals('',Fld.DisplayText,'Correct false');
Fld.AsString:='+';
CheckEquals(true,Fld.AsBoolean,'Correct true');
Fld.AsString:='';
CheckEquals(False,Fld.AsBoolean,'Correct False');
end; end;
procedure TTestDBBasics.TestSupportFloatFields; procedure TTestDBBasics.TestSupportFloatFields;