Michaël Van Canneyt 5 luni în urmă
părinte
comite
293ddd6eb4
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      packages/fcl-sdo/src/base/sdo_rtti_filters.pas

+ 1 - 1
packages/fcl-sdo/src/base/sdo_rtti_filters.pas

@@ -877,7 +877,7 @@ function TRttiExpUnicodeStringNodeItem.Evaluate(
 begin
   case Operation of
     sfoEqualCaseSensitive   :  Result := ( GetUnicodeStrProp(AInstance,PropInfo) = ComparedValue );
-    sfoEqualCaseInsensitive :  Result := ( LowerCase(GetUnicodeStrProp(AInstance,PropInfo)) = LowerCase(ComparedValue));
+    sfoEqualCaseInsensitive :  Result := SameText(GetUnicodeStrProp(AInstance,PropInfo),ComparedValue);
     sfoNotEqual             :  Result := not SameText(GetUnicodeStrProp(AInstance,PropInfo),ComparedValue);
     else
       Assert(False);