Ord (carácter)

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:

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.

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario