Para quem é BÃO de Delphi!!!
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
Curtidas 0
Respostas
Anonymous
15/03/2003
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;
GOSTEI 0
Trial Force
15/03/2003
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...
GOSTEI 0