Nochmals HexToString und StringToHEx

[EDatabaseError]

Delphi-Quellcode:

{************************************************************************** 
* NAME:    StringToHexStr 
* DESC:    Konvertiert einen String in eine hexadezimale Darstellung 
*************************************************************************} 
function StringToHexStr(const value:string):string; 
begin 
   SetLength(Result, Length(value)*2);  // es wird doppelter Platz benötigt 
   if Length(value) > 0 then 
      BinToHex(PChar(value), PChar(Result), Length(value)); 
end; 

{************************************************************************** 
* NAME:    HexStrToString 
* DESC:    Dekodiert einen hexadezimalen String 
*************************************************************************} 
function HexStrToString(const value:string):string; 
begin 
   SetLength(Result, Length(value) div 2);  // es wird halber Platz benötigt 
   if Length(value) > 0 then 
      HexToBin(PChar(value), PChar(Result), Length(value)); 
end;

Das sollte dir vllt. helfen.


Ach du möchtest nur die Dezimalen des HEX...dann nimm Ord(Char)...