PDA

Ver la Versión Completa : LowerCase, UpperCase de caracteres


dec
07-06-2006, 21:08:11
Las siguientes funciones devuelven el caracter que se pase como parámetro, bien en minúscula, bien en mayúscula:


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;