[Serega]

У кого есть кода для перевода HEX строки в десятичный тип? »

Написал функцию для преобразования строки из Hex в string.

HexToStr

Код:

[Setup]
AppName=HexToStr
AppVerName=HexToStr v 1.0
AppPublisher=Serega
AppPublisherURL=http://forum.oszone.net/member.php?userid=88670
DefaultDirName={pf}\HexToStr
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
function HexToStr(str_hex: string): string;
var
  i: Integer;
begin
  StringChange(str_hex, ',', '');
  for i:= 1 to Length(str_hex) div 2 do
    Result:= Result +  Chr(StrToInt('$' + Copy(str_hex, (i-1)*2+1, 2)));
end;

function InitializeSetup(): Boolean;
var
  msg: string;
begin
  msg:= 'CF,F0,E8,EC,E5,F0,20,F0,E0,E1,EE,F2,FB,20,F4,F3,ED,EA,F6,E8,E8,20,48,65,78,54,6F,53,74,72';
  MsgBox(HexToStr(msg), mbInformation, MB_OK);
end;