Advanced Search

Return to Snippet

Revision: 8010
at August 26, 2008 17:11 by Nix
Initial Code 
function String2Hex(const Buffer: Ansistring): string;
var
  n: Integer;
begin
  Result := '';
  for n := 1 to Length(Buffer) do
    Result := LowerCase(Result + IntToHex(Ord(Buffer[n]), 2));
end;
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
Works great ;)

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
String to Hexadecimal

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Delphi