浏览代码

* SameText

Michaël Van Canneyt 5 月之前
父节点
当前提交
293ddd6eb4
共有 1 个文件被更改,包括 1 次插入1 次删除
  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);