RegExpr: need WideUpperCase/WideLowerCase
Original Reporter info from Mantis: Alextp
-
Reporter name: CudaText man
Original Reporter info from Mantis: Alextp
- Reporter name: CudaText man
Description:
In Unicode define mode, need WideUpperCase instead of AnsiUpperCase
class function TRegExpr.InvertCaseFunction (const Ch : REChar) : REChar;
begin
{$IFDEF UniCode}
if Ch >= #128
then Result := Ch
else
{$ENDIF}
begin
Result := {$IFDEF FPC}AnsiUpperCase (Ch) [1]{$ELSE} {$IFDEF SYN_WIN32}REChar (CharUpper (PChar (Ch))){$ELSE}REChar (toupper (integer (Ch))){$ENDIF} {$ENDIF};
if Result = Ch
then Result := {$IFDEF FPC}AnsiLowerCase (Ch) [1]{$ELSE} {$IFDEF SYN_WIN32}REChar (CharLower (PChar (Ch))){$ELSE}REChar(tolower (integer (Ch))){$ENDIF} {$ENDIF};
end;
end; { of function TRegExpr.InvertCaseFunction
also, make this code more readable.
Mantis conversion info:
- Mantis ID: 32404
- Version: 3.0.2
- Fixed in version: 3.1.1
- Fixed in revision: 39534 (#96239162)
- Target version: 3.2.0