View Single Post
  #2  
Old 09-01-2009, 06:04 PM
KevMc KevMc is offline
Member
 
Join Date: Aug 2009
Location: United Kingdom
Posts: 50
Default

Hi,

This function should help you.

Code:
function HexToString(H: String): String;
var I : Integer;
begin
  Result:= '';
  for I := 1 to length (H) div 2 do
    Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));
end;
Cheers

Kevin

Last edited by Norrit; 09-02-2009 at 03:57 PM. Reason: added the code-tags
Reply With Quote