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

* Fix calculation of fieldoffset in Get/SetFieldData

Browse Source 
git-svn-id: trunk@12767 -
This commit is contained in:
blikblum 2009-02-22 07:09:06 +00:00
parent daa5fed573
commit 2503a6fb8d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/sqlite/customsqliteds.pas
View File

@ -644,7 +644,7 @@ begin
if Field.FieldNo >= 0 then
FieldOffset := Field.FieldNo - 1
else
FieldOffset := FieldDefs.Count + FCalcFieldList.IndexOf(Field) - 1;
FieldOffset := FieldDefs.Count + FCalcFieldList.IndexOf(Field);
if State <> dsCalcFields then
FieldRow := PPDataRecord(ActiveBuffer)^^.Row[FieldOffset]
@ -1241,7 +1241,7 @@ begin
end
else
begin
FieldOffset := FieldDefs.Count + FCalcFieldList.IndexOf(Field) - 1;
FieldOffset := FieldDefs.Count + FCalcFieldList.IndexOf(Field);
EditItem := PPDataRecord(CalcBuffer)^;
end;