소스 검색

* 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);