String Hexadecimal

[Thiago Delalibera 1]

Pessoal uso uma função que retorna o serial lógico da partição, este é um valor hexadecimal, porém a função me retorna em string, como fazer com que eu possa usar esse valor para usar em calculos, lembrando que não seria uma conversão de string para hex, pois o valor já é hex, só esta no formato Str, obrigado!

[Raficcha 1]

veja se esta função ajuda, é de um amigo meu. Utilizo ela para este tipo de conversão.

 

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;