diff options
| author | blikblum <blikblum@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-02-21 17:51:46 +0000 |
|---|---|---|
| committer | blikblum <blikblum@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-02-21 17:51:46 +0000 |
| commit | 03380e37923d42cff3f7ea8148efeca2ca294ffe (patch) | |
| tree | b872fbf074cb8684e9bd0f1b338a332779e7fcd7 /packages/fcl-db/src/sqlite/customsqliteds.pas | |
| parent | 44ea2391b811e5282228f3ce6bdc2b5bc39fdc9b (diff) | |
| download | fpc-03380e37923d42cff3f7ea8148efeca2ca294ffe.tar.gz | |
* Use FieldDefs instead of Fields in Set/GetFieldData
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@12763 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-db/src/sqlite/customsqliteds.pas')
| -rw-r--r-- | packages/fcl-db/src/sqlite/customsqliteds.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/fcl-db/src/sqlite/customsqliteds.pas b/packages/fcl-db/src/sqlite/customsqliteds.pas index 21a84013a6..eb149e605e 100644 --- a/packages/fcl-db/src/sqlite/customsqliteds.pas +++ b/packages/fcl-db/src/sqlite/customsqliteds.pas @@ -641,7 +641,7 @@ begin if Field.FieldNo >= 0 then FieldOffset := Field.FieldNo - 1 else - FieldOffset := Fields.Count + FCalcFieldList.IndexOf(Field) - 1; + FieldOffset := FieldDefs.Count + FCalcFieldList.IndexOf(Field) - 1; if State <> dsCalcFields then FieldRow := PPDataRecord(ActiveBuffer)^^.Row[FieldOffset] @@ -1238,7 +1238,7 @@ begin end else begin - FieldOffset := Fields.Count + FCalcFieldList.IndexOf(Field) - 1; + FieldOffset := FieldDefs.Count + FCalcFieldList.IndexOf(Field) - 1; EditItem := PPDataRecord(CalcBuffer)^; end; |