[Resolvido] Converter Hexadecimal p/ Integer 16 Bit

[douglasdepaula 0]

Aew pessoal.. to precisando do seguinte..

num arquivo tem o valor Hex "5046", isso da "18000" em Int16,

tbm "4871" eh Hex... que vai dar "29000" em Int16..

agora, como eu fasso pra converter do Hexadecimal para Int16 ?

eu ja tentei

"IntToStr(StrToInt('$4871'));"

mas isso retorna "18545"

T_T

[Raficcha 1]

Eu tenho esta função, veja se lhe ajuda:

 

function HexToInt( HexStr: string): integer;
var
	Index: integer;
	Temp: Char;
begin
	Result := 0;
	for Index := 1 to Length(HexStr) do
	begin
		Temp := HexStr[Index];
		case Temp of
			'0'..'9': Result := 16 * Result + (Ord(Temp) - $30);
			'A'..'F': Result := 16 * Result + (Ord(Temp) - $37);
			'a'..'f': Result := 16 * Result + (Ord(Temp) - $57);
			else
				raise EConvertError.Create('Caractér ilegal na string');
		end;
	end;
end;

[douglasdepaula 0]

ok... já consegui aki.. problema resolvido ^^