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

+ First attempt to get Calcfields working (issues #7295,#7294)

Browse Source 
git-svn-id: trunk@4506 -
This commit is contained in:
joost 2006-08-25 21:57:25 +00:00
parent 7d1b95e09a
commit 50a6e9754d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/db/bufdataset.inc
View File

@ -172,6 +172,7 @@ begin
BookmarkFlag := bfCurrent;
end;
move((pointer(FCurrentRecBuf)+sizeof(TBufRecLinkItem))^,buffer^,FRecordSize);
GetCalcFields(Buffer);
end
else if (Result = grError) and doCheck then
DatabaseError('No record');
@ -357,12 +358,12 @@ var CurrBuff : pointer;
NullMask : pbyte;
begin
if not (state in [dsEdit, dsInsert, dsFilter]) then
if not (state in [dsEdit, dsInsert, dsFilter, dsCalcFields]) then
begin
DatabaseErrorFmt(SNotInEditState,[NAme],self);
DatabaseErrorFmt(SNotInEditState,[Name],self);
exit;
end;
If Field.Fieldno > 0 then // If = 0, then calculated field or something
// If Field.Fieldno > 0 then // If = 0, then calculated field or something
begin
if state = dsFilter then // Set the value into the 'temporary' FLastRecBuf buffer for Locate and Lookup
CurrBuff := pointer(FLastRecBuf) + sizeof(TBufRecLinkItem)