Se le pasa como parámetro el código ASCII (integer) y devuelve el carácter al que equivale.
Ejemplo de uso:
|
1 2 3 4 5 6 7 |
function sumarCaracter (caracter : char; numSumar : integer; sumar : boolean) : string; begin if sumar then Result := chr (ord(caracter) + numSumar) else Result := chr (ord(caracter) - numSumar); end; |
Uses System.
