Fórum Para quem é BÃO de Delphi!!! #145922
15/03/2003
0
Olá pessoal, estou com o seguinte problema: eu digito em um edit um número, que será enviado para um equipamento que me conecto pela porta serial, mas o que eu digito está em ASCII, e o equipamento só recebe HEX, então gostaria de saber se tem alguma maneira de o que eu digitar já aparecer diretamente em HEX.
Grato pela ajuda!!!
Grato pela ajuda!!!
Francis
Curtir tópico
+ 0
Responder
Posts
15/03/2003
Anonymous
Veja se isso lhe ajuda ...
ate
function NumToHex(Num: Word): String;
//Converte um numero em Hexadecimal
Var
L : string[16];
BHi,BLo : byte;
Begin
L := ´0123456789ABCDEF´;
BHi := Hi(Num);
BLo := Lo(Num);
result := copy(L,succ(BHi shr 4),1) +
copy(L,succ(BHi and 15),1) +
copy(L,succ(BLo shr 4),1) +
copy(L,succ(BLo and 15),1);
end;
ate
function NumToHex(Num: Word): String;
//Converte um numero em Hexadecimal
Var
L : string[16];
BHi,BLo : byte;
Begin
L := ´0123456789ABCDEF´;
BHi := Hi(Num);
BLo := Lo(Num);
result := copy(L,succ(BHi shr 4),1) +
copy(L,succ(BHi and 15),1) +
copy(L,succ(BLo shr 4),1) +
copy(L,succ(BLo and 15),1);
end;
Responder
Gostei + 0
15/03/2003
Trial Force
Naum sei se esta é a função que eu lembrava, mas sei que existe uma função assim que tem pronta no delphi que faz exatamente isto... mas acho que o nome era este...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)