* twidestringfield.setfieldtype, mantis 18663, patch by Ladislav

git-svn-id: trunk@16871 -

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

@@ -499,6 +499,7 @@ type
     function GetDataSize: Integer; override;
   public
     constructor Create(aOwner: TComponent); override;
+    procedure SetFieldType(AValue: TFieldType); override;
     property Value: WideString read GetAsWideString write SetAsWideString;
   end;
 

packages/fcl-db/src/base/fields.inc

@@ -1205,6 +1205,12 @@ begin
   SetDataType(ftWideString);
 end;
 
+procedure TWideStringField.SetFieldType(AValue: TFieldType);
+begin
+  if avalue in [ftWideString, ftFixedWideChar] then
+    SetDataType(AValue);
+end;
+
 function TWideStringField.GetValue(var aValue: WideString): Boolean;
 var
   FixBuffer : array[0..dsMaxStringSize div 2] of WideChar;