paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:09:27 +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; BookmarkFlag := bfCurrent;
end; end;
move((pointer(FCurrentRecBuf)+sizeof(TBufRecLinkItem))^,buffer^,FRecordSize); move((pointer(FCurrentRecBuf)+sizeof(TBufRecLinkItem))^,buffer^,FRecordSize);
GetCalcFields(Buffer);
end end
else if (Result = grError) and doCheck then else if (Result = grError) and doCheck then
DatabaseError('No record'); DatabaseError('No record');
@ -357,12 +358,12 @@ var CurrBuff : pointer;
NullMask : pbyte; NullMask : pbyte;
begin begin
if not (state in [dsEdit, dsInsert, dsFilter]) then if not (state in [dsEdit, dsInsert, dsFilter, dsCalcFields]) then
begin begin
DatabaseErrorFmt(SNotInEditState,[NAme],self); DatabaseErrorFmt(SNotInEditState,[Name],self);
exit; exit;
end; 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 begin
if state = dsFilter then // Set the value into the 'temporary' FLastRecBuf buffer for Locate and Lookup if state = dsFilter then // Set the value into the 'temporary' FLastRecBuf buffer for Locate and Lookup
CurrBuff := pointer(FLastRecBuf) + sizeof(TBufRecLinkItem) CurrBuff := pointer(FLastRecBuf) + sizeof(TBufRecLinkItem)