Ver Mensaje Individual
  #1  
Antiguo 07-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
LowerCase, UpperCase de caracteres

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;
Responder Con Cita