Se le pasa como parámetro un carácter y devuelve un valor entero (integer) equivalente al código ASCII del carácter introducido.
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.