AnsiUpCase Function
Ansi version of the standard UpCase.

Unit
QESBPCSConvert

Declaration
Function AnsiUpCase(const Ch: Char): Char;

Parameters
Ch Character to be converted to UpCase.

Category
Extra String Handling Routines

Implementation

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;


HTML generated by Time2HELP
http://www.time2help.com