* Fix bug #33918, make TParam getters/Setters virtual

git-svn-id: trunk@39321 -

packages/fcl-db/src/base/db.pas

@@ -1190,47 +1190,47 @@ type
   protected
     Procedure AssignParam(Param: TParam);
     Procedure AssignTo(Dest: TPersistent); override;
-    Function GetAsBoolean: Boolean;
-    Function GetAsBytes: TBytes;
-    Function GetAsCurrency: Currency;
-    Function GetAsDateTime: TDateTime;
-    Function GetAsFloat: Double;
-    Function GetAsInteger: Longint;
-    Function GetAsLargeInt: LargeInt;
-    Function GetAsMemo: string;
-    Function GetAsString: string;
-    Function GetAsAnsiString: AnsiString;
-    Function GetAsUnicodeString: UnicodeString;
-    Function GetAsUTF8String: UTF8String;
-    Function GetAsWideString: WideString;
-    Function GetAsVariant: Variant;
-    Function GetAsFMTBCD: TBCD;
+    Function GetAsBoolean: Boolean; virtual;
+    Function GetAsBytes: TBytes; virtual;
+    Function GetAsCurrency: Currency; virtual;
+    Function GetAsDateTime: TDateTime; virtual;
+    Function GetAsFloat: Double; virtual;
+    Function GetAsInteger: Longint; virtual;
+    Function GetAsLargeInt: LargeInt; virtual;
+    Function GetAsMemo: string; virtual;
+    Function GetAsString: string; virtual;
+    Function GetAsAnsiString: AnsiString; virtual;
+    Function GetAsUnicodeString: UnicodeString; virtual;
+    Function GetAsUTF8String: UTF8String; virtual;
+    Function GetAsWideString: WideString; virtual;
+    Function GetAsVariant: Variant; virtual;
+    Function GetAsFMTBCD: TBCD; virtual;
     Function GetDisplayName: string; override;
     Function GetIsNull: Boolean;
     Function IsEqual(AValue: TParam): Boolean;
-    Procedure SetAsBCD(const AValue: Currency);
-    Procedure SetAsBlob(const AValue: TBlobData);
-    Procedure SetAsBoolean(AValue: Boolean);
-    Procedure SetAsBytes(const AValue: TBytes);
-    Procedure SetAsCurrency(const AValue: Currency);
-    Procedure SetAsDate(const AValue: TDateTime);
-    Procedure SetAsDateTime(const AValue: TDateTime);
-    Procedure SetAsFloat(const AValue: Double);
-    Procedure SetAsInteger(AValue: Longint);
-    Procedure SetAsLargeInt(AValue: LargeInt);
-    Procedure SetAsMemo(const AValue: string);
-    Procedure SetAsSmallInt(AValue: LongInt);
-    Procedure SetAsString(const AValue: string);
-    Procedure SetAsAnsiString(const AValue: AnsiString);
-    Procedure SetAsUTF8String(const AValue: UTF8String);
-    Procedure SetAsUnicodeString(const AValue: UnicodeString);
-    Procedure SetAsWideString(const AValue: WideString);
-    Procedure SetAsTime(const AValue: TDateTime);
-    Procedure SetAsVariant(const AValue: Variant);
-    Procedure SetAsWord(AValue: LongInt);
-    Procedure SetAsFMTBCD(const AValue: TBCD);
+    Procedure SetAsBCD(const AValue: Currency); virtual;
+    Procedure SetAsBlob(const AValue: TBlobData); virtual;
+    Procedure SetAsBoolean(AValue: Boolean); virtual;
+    Procedure SetAsBytes(const AValue: TBytes); virtual;
+    Procedure SetAsCurrency(const AValue: Currency); virtual;
+    Procedure SetAsDate(const AValue: TDateTime); virtual;
+    Procedure SetAsDateTime(const AValue: TDateTime); virtual;
+    Procedure SetAsFloat(const AValue: Double); virtual;
+    Procedure SetAsInteger(AValue: Longint); virtual;
+    Procedure SetAsLargeInt(AValue: LargeInt); virtual;
+    Procedure SetAsMemo(const AValue: string); virtual;
+    Procedure SetAsSmallInt(AValue: LongInt); virtual;
+    Procedure SetAsString(const AValue: string); virtual;
+    Procedure SetAsAnsiString(const AValue: AnsiString); virtual;
+    Procedure SetAsUTF8String(const AValue: UTF8String); virtual;
+    Procedure SetAsUnicodeString(const AValue: UnicodeString); virtual;
+    Procedure SetAsWideString(const AValue: WideString); virtual;
+    Procedure SetAsTime(const AValue: TDateTime); virtual;
+    Procedure SetAsVariant(const AValue: Variant); virtual;
+    Procedure SetAsWord(AValue: LongInt); virtual;
+    Procedure SetAsFMTBCD(const AValue: TBCD); virtual;
     Procedure SetDataType(AValue: TFieldType);
-    Procedure SetText(const AValue: string);
+    Procedure SetText(const AValue: string); virtual;
   public
     constructor Create(ACollection: TCollection); overload; override;
     constructor Create(AParams: TParams; AParamType: TParamType); reintroduce; overload;