const
RegExprInvertCaseFunction: TRegExprInvertCaseFunction = nil;
var
fInvertCase: TRegExprInvertCaseFunction;
public
// Set this property if you want to override case-insensitive functionality.
// Create set it to RegExprInvertCaseFunction (InvertCaseFunction by default)
property InvertCase: TRegExprInvertCaseFunction read fInvertCase write fInvertCase; // ##0.935
to use INLINE InvertCase like this
Result := _UpperCase(Ch);
if Result = Ch then
Result := _LowerCase(Ch);
I suggest to delete
to use INLINE InvertCase like this
we will reduce CALLs.