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

* Use FieldDefs instead of Fields in Set/GetFieldData

Browse Source 
git-svn-id: trunk@12763 -
This commit is contained in:
blikblum 2009-02-21 17:51:46 +00:00
parent d72a9cfa48
commit a10de0a71f
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

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