--- D:/jvcl/run/JvDBUtils.pas	Ñð èþë 22 14:29:31 2009
+++ C:/Users/U7/Documents/RAD Studio/Projects/Agora/JvDBUtils.pas	Ñð èþë 22 15:04:10 2009
@@ -1,4 +1,4 @@
-{-----------------------------------------------------------------------------
+{-----------------------------------------------------------------------------
 The contents of this file are subject to the Mozilla Public License
 Version 1.1 (the "License"); you may not use this file except in compliance
 with the License. You may obtain a copy of the License at
@@ -483,7 +483,7 @@
   var
     S: string;
   begin
-    if Field.DataType = ftString then
+    if Field.DataType in [ftString{$IFDEF COMPILER11_UP}, ftWideString{$ENDIF}] then
     begin
       if Value = Null then
         Result := Field.IsNull
@@ -598,7 +598,7 @@
   Field := DataSet.FindField(FieldName);
   if Field = nil then
     Exit;
-  if Field.DataType = ftString then
+  if Field.DataType in [ftString{$IFDEF COMPILER11_UP}, ftWideString{$ENDIF}] then
   begin
     DataSet.DisableControls;
     BookMk := DataSet.GetBookmark;
@@ -856,7 +856,7 @@
   FieldValue := '';
   DateValue := NullDate;
   Exact := Exact or not (FieldType in
-    [ftString, ftDate, ftTime, ftDateTime]);
+    [ftString, {$IFDEF COMPILER11_UP}ftWideString,{$ENDIF} ftDate, ftTime, ftDateTime]);
   if FieldType in [ftDate, ftTime, ftDateTime] then
   begin
     DateValue := StrToDateDef(Value, NullDate);
@@ -870,7 +870,7 @@
     if not (Exact or EmptyValue) then
       FieldValue := ReplaceStr(ReplaceStr(StrMaskSQL(FieldValue),
         '*', '%'), '?', '_');
-    if FieldType = ftString then
+    if FieldType in [ftString{$IFDEF COMPILER11_UP}, ftWideString{$ENDIF}] then
       FieldValue := '''' + FieldValue + '''';
   end;
   LogicOperator := Operator;
@@ -880,7 +880,7 @@
       LogicOperator := '='
     else
     begin
-      if FieldType = ftString then
+      if FieldType in [ftString{$IFDEF COMPILER11_UP}, ftWideString{$ENDIF}] then
         LogicOperator := 'LIKE'
       else
         LogicOperator := '>=';
@@ -905,7 +905,7 @@
   S, Esc: string;
 begin
   Esc := '';
-  if not Exact and (FieldType = ftString) then
+  if not Exact and (FieldType in [ftString{$IFDEF COMPILER11_UP}, ftWideString{$ENDIF}]) then
   begin
     S := ReplaceStr(ReplaceStr(ReplaceStr(Value, '/', '//'),
       '_', '/_'), '%', '/%');