Transformar String ou Int em Hex?

Question

Transformar String ou Int em Hex?...

Cebikyn · Answer

Use a fun��o IntToHex:[code:1:f00e79bce4]  String := IntToHex( Integer , X);[/code:1:f00e79bce4]Onde X � o n�mero de d�gitos desejados no resultado....

Host · Answer

Tem alguma forma de converter um string para hex?...

Cebikyn · Answer

String ( contendo um decimal ) para Hex:

  String := IntToHex( StrToInt( SuaString ) , X);

Aqui est� uma fun��o que converte Hex em Integer (caso precise):

function HexToInt(HexStr : string) : Int64;
var
  RetVar : Int64;
  i : byte;
begin
  HexStr := UpperCase(HexStr);
  if HexStr[length(HexStr)] = �H� then
     Delete(HexStr,length(HexStr),1);
  RetVar := 0;  
  for i := 1 to length(HexStr) do begin
      RetVar := RetVar shl 4;
      if HexStr[i] in [�0�..�9�] then
         RetVar := RetVar + (byte(HexStr[i]) - 48)
      else
         if HexStr[i] in [�A�..�F�] then
            RetVar := RetVar + (byte(HexStr[i]) - 55)
         else begin
            Retvar := 0;
            break;
         end;  
  end;
  Result := RetVar;
end;

Ao passar o par�metro [b:42045d4fe9]HexStr[/b:42045d4fe9], o �ltimo caracter [i:42045d4fe9]pode[/i:42045d4fe9] ser um [b:42045d4fe9]H[/b:42045d4fe9] ou [b:42045d4fe9]h[/b:42045d4fe9], que normalmente � usado para indicar que o n�mero � hexadecimal. Ex: 00123h

F�rum Transformar String ou Int em Hex? #170818