Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

segunda-feira, 15 de outubro de 2012

DELPHI - Função de String para Hexadecimal / Hexadecimal para String

Reações: 
function StringToHex (S : string) : string;
var
  Str : String;
  i   : Integer;
begin
  for I := 0 to Length(S) - 1 do
  begin
    Str := Str + IntToHex(Ord(S[I + 1]), 2) + ' ';
  end;
  Delete(Str, Length(Str), 1);
  Result := Str;
end;

function HexToString(S : string) : string;
var
  Str : String;
  i   : Integer;
begin
  I := 1;
  while I <= Length(S) do
  begin
    Str := Str + Char(StrToInt('$' + Copy(S, I, 2)));
    I := I + 3;
  end;
  Result := Str;
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer