Buscar

Convertendo codigo asc para hexadecimal

Código

Function CharToHex( MyChar: Char ): String;
  var escala: string;
    res, num: integer;
  Begin
    num:=ord(Mychar);
    escala:='0123456789ABCDEF';
    res:=(num div 16);
    result:=escala[res+1];
    res:=(num-(res*16));
    result:=result+escala[res+1];
  End;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 30/07/03
Por: Felipe Monteiro
Visualizada: 4030 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009