delphi如何将16进制转成10进制 (20分)

Z

zz770813

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-31

• #1

delphi如何将16进制转成10进制

 

J

jfyes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-31

• #2

{1、十进制数与十六进制数之间的转换(单字节)}
//十进制转换成十六进制
function CnIntToHex(aInt: Integer): string;
begin
Result := IntToHex(Word(aInt), 4);
end;

//十六进制转换成十进制
function CnHexToInt(aHex: string): integer;
begin
Result := SmallInt(StrToInt('$'+aHex));
end;

 

A

amli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-31

• #3

HexToBin

 

S

smokingroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-31

• #4

var
HexStr:string;
BinStr:string;
BufSize:Integer;
I:Integer;
begin
HexStr:='0123456789ABCDEF';
BufSize:=(Length(HexStr)+1) div 2;
SetLength(BinStr,BufSize);
HexToBin(PChar(HexStr),PChar(BinStr),BufSize);
for I:=1 to BufSize do
begin
ShowMessage(IntToStr(Ord(BinStr)));
end;
end;

 

Z

zz770813

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-01

• #5

多人接受答案了。