From aad696166d306b20192ff76776e304e6b559145c Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Thu, 3 Feb 2011 08:08:47 +0000
Subject: [PATCH]  * twidestringfield.setfieldtype, mantis 18663, patch by
 Ladislav

git-svn-id: trunk@16871 -
---
 packages/fcl-db/src/base/db.pas     | 1 +
 packages/fcl-db/src/base/fields.inc | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/packages/fcl-db/src/base/db.pas b/packages/fcl-db/src/base/db.pas
index a921197dc4..cd18c224cb 100644
--- a/packages/fcl-db/src/base/db.pas
+++ b/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;
 
diff --git a/packages/fcl-db/src/base/fields.inc b/packages/fcl-db/src/base/fields.inc
index 385da600f6..8bb3a0fbbc 100644
--- a/packages/fcl-db/src/base/fields.inc
+++ b/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;