String to Hexadecimal


/ Published in: Delphi
Save to your folder(s)

Works great ;)


Copy this code and paste it in your HTML
  1. function String2Hex(const Buffer: Ansistring): string;
  2. var
  3. n: Integer;
  4. begin
  5. Result := '';
  6. for n := 1 to Length(Buffer) do
  7. Result := LowerCase(Result + IntToHex(Ord(Buffer[n]), 2));
  8. end;

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.