[Duvida Delphi] Calcular em Hexadecima

[Cabuloso]

ow galera... alguém poderia me dizer como fazer um codigo que calcule os valores em hexadecimal?

por exemplo

009D5789 + 009O68974

??

[GustavoW]

ow galera... alguém poderia me dizer como fazer um codigo que calcule os valores em hexadecimal?

por exemplo

009D5789 + 009O68974

??

Ae cara,

com uma rápida procura pelo google achei um jeito de converter Hex para Int no site: http://www.ramosdainformatica.com.br/dic_r...s01.php?CDA=287

Abaixo o Código para fazer a soma:

pprocedure TForm1.Button1Click(Sender: TObject);

var n1,n2:integer;

begin

n1:=StrToInt('$'+Edit1.Text);

n2:=StrToInt('$'+Edit2.Text);

Label1.Caption:=IntToHex(n1+n2,8);

end;

ah vai precisar de 2 Edit, 1 Button(onde você poe o código), e 1 label, para mostrar o resultado.

Se quiser ver o resultado em Decimal coloca + 1 label e 1 button(com o codigo abaixo):

procedure TForm1.Button2Click(Sender: TObject);

begin

Label2.Caption:=IntToStr(StrToInt('$'+Label1.Caption));

end;

Espero ter ajudado...

T+

Editado Setembro 12, 2010 por GustavoW

[Cabuloso]

Como faço pra no lugar do edit no code eu colocar já o valor a ser somado ?

Editado Setembro 12, 2010 por Cabuloso

[GustavoW]

Como faço pra no lugar do edit no code eu colocar já o valor a ser somado ?

Simples:

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:=IntToHex("Valor1"+"Valor2",8);

end;

OBS: para o Delphi reconhecer um numero como Hex tem que ter o sinal "$" na frente do numero.

Ex:

Label1.Caption:=IntToHex( $009D5789 + $009068974 ,8);

Qualquer coisa tamo ai...

T+

[Cabuloso]

o que tem de errado aqui ?

procedure TForm1.Button1Click(Sender: TObject);

var n1,n2:integer;

begin

Edit4.Text:=IntToHex('$'+Edit1.Text + $009068974,8);

end;

[GustavoW]

o que tem de errado aqui ?

procedure TForm1.Button1Click(Sender: TObject);

var n1,n2:integer;

begin

Edit4.Text:=IntToHex('$'+Edit1.Text + $009068974,8);

end;

Faltou converter o " '$'+Edit1.text " para inteiro, pois tudo que você digita em um edit sai como string, e por isso precisa dessa conversão.

Abaixo o certo:

procedure TForm1.Button1Click(Sender: TObject);

var n1,n2:integer;

begin

Edit4.Text:=IntToHex(StrToInt('$'+Edit1.Text) + $009068974,8);

end;

[Cabuloso]

Obrigado funcionou 100%.

Se poder manda seu MSN ai ;)