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