como somar esse hexa em par
Galera gostaria de uma ajuda estou em muita duvida para resolver um problema em hexadecimal.
BCAAABCC21ACB32AECFDEADC23ABCC
queria somar esse hexadecimal, ele esta assim como hexadecimal longo...
mas queria alguma ajuda para somar esse hexa assim:
BC+AA+AB+CC+21+AC+B3+2A+EC+FD+EA+DC+23+AB+CC
de dois em dois caracteres :0
agradeco a ajuda...
BCAAABCC21ACB32AECFDEADC23ABCC
queria somar esse hexadecimal, ele esta assim como hexadecimal longo...
mas queria alguma ajuda para somar esse hexa assim:
BC+AA+AB+CC+21+AC+B3+2A+EC+FD+EA+DC+23+AB+CC
de dois em dois caracteres :0
agradeco a ajuda...
Paulovitor22
Curtidas 0
Respostas
Luiz Henrique
04/12/2008
blz Paulo,
StrToInt(´$BC´)+StrToInt(´$AA´)
StrToInt(´$BC´)+StrToInt(´$AA´)
GOSTEI 0
Paulovitor22
04/12/2008
[quote:880e7233ff=´Luiz Henrique´]blz Paulo,
StrToInt(´$BC´)+StrToInt(´$AA´)[/quote:880e7233ff]
comigo nao funciona isso aeee de jeito algum :=
msmo assim obrigado
StrToInt(´$BC´)+StrToInt(´$AA´)[/quote:880e7233ff]
comigo nao funciona isso aeee de jeito algum :=
msmo assim obrigado
GOSTEI 0
Luiz Henrique
04/12/2008
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm5 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
edit2.text:= IntToStr(SysUtils.StrToInt(´$´+edit1.text))
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm5 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
edit2.text:= IntToStr(SysUtils.StrToInt(´$´+edit1.text))
end;
end.
GOSTEI 0
Luiz Henrique
04/12/2008
...postei o teste aqui
www.proquisa.net/project5.exe
www.proquisa.net/project5.exe
GOSTEI 0