Publicado em 17 de jul.

String Hexadecimal

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!

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Raficcha· 17 de jul.

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;