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