Browse Source

* use sametext instead of converting case

Michaël Van Canneyt 5 months ago
parent
commit
c8d86b3fda
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-sdo/src/base/sdo_rtti_filters.pas

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

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