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

fcl-db: base: allow TField.Clear also for calculated (and lookup) fields. Bug #25174

Browse Source 
git-svn-id: trunk@30703 -
This commit is contained in:
lacak 2015-04-22 12:40:10 +00:00
parent 1b9e1eb1d8
commit c3e542c7ef
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -416,8 +416,7 @@ end;
procedure TField.Clear;
begin
if FieldKind in [fkData, fkInternalCalc] then
SetData(Nil);
SetData(Nil);
end;
procedure TField.DataChanged;
@ -1507,7 +1506,6 @@ begin
end;
procedure TLongintField.SetAsInteger(AValue: Longint);
var Min, Max: Longint;
begin
If CheckRange(AValue) then
SetData(@AValue)