LowerCase, UpperCase de caracteres

[dec]

Las siguientes funciones devuelven el caracter que se pase como parámetro, bien en minúscula, bien en mayúscula:

Código Delphi [-]
function CharAnsiLowerCase(const C: Char) : Char;
var
  P: PChar;
begin
  P := AnsiLower(@C);
  Result :=  Char(C);
end;

function CharAnsiUpperCase(const C: Char) : Char;
var
  P: PChar;
begin
  P := AnsiUpper(@C);
  Result :=  Char(C);
end;