paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use sametext instead of converting case

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-04-07 15:10:20 +02:00
parent 055bd2c653
commit c8d86b3fda
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-sdo/src/base/sdo_rtti_filters.pas
View File

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