| AnsiUpCase Function | 
Unit
QESBPCSConvert
Declaration
Function AnsiUpCase(const Ch: Char): Char;
| Parameters | 
| Ch | Character to be converted to UpCase. | 
Category
Extra String Handling RoutinesImplementation
 
| function AnsiUpCase (const Ch: Char): Char;
{$IFDEF MSWINDOWS}
var
     PC: PChar;
begin
     New (PC);
     try
          PC^ := Ch; // Convert Char to PChar
          Result := CharUpper (PC)^; // Call Windows function
     finally
          Dispose (PC);
     end;
end;
{$ENDIF}
{$IFDEF LINUX}
begin
     Result := Char (towupper (UCS4Char (Ch)));
End; | 
|  |