Index: packages/fcl-db/src/base/db.pas =================================================================== --- packages/fcl-db/src/base/db.pas (revision 11115) +++ packages/fcl-db/src/base/db.pas (working copy) @@ -299,7 +299,6 @@ Function GetIndex : longint; procedure SetAlignment(const AValue: TAlignMent); procedure SetIndex(const AValue: Integer); - Procedure SetDataset(AValue : TDataset); function GetDisplayText: String; function GetEditText: String; procedure SetEditText(const AValue: string); @@ -350,9 +349,10 @@ procedure SetAsLongint(AValue: Longint); virtual; procedure SetAsInteger(AValue: Integer); virtual; procedure SetAsLargeint(AValue: Largeint); virtual; - procedure SetAsVariant(AValue: variant); virtual; + procedure SetAsVariant(const AValue: variant); virtual; procedure SetAsString(const AValue: string); virtual; procedure SetAsWideString(const aValue: WideString); virtual; + procedure SetDataset(AValue : TDataset); virtual; procedure SetDataType(AValue: TFieldType); procedure SetNewValue(const AValue: Variant); procedure SetSize(AValue: Word); virtual; Index: packages/fcl-db/src/base/fields.inc =================================================================== --- packages/fcl-db/src/base/fields.inc (revision 11115) +++ packages/fcl-db/src/base/fields.inc (working copy) @@ -742,7 +742,7 @@ Raise AccessError(SFloat); end; -procedure TField.SetAsVariant(AValue: Variant); +procedure TField.SetAsVariant(const AValue: Variant); begin if VarIsNull(AValue) then