delphi中有没有可以把收到的二进制数转为十进制数的函数 ( 积分: 50 )

雪

雪球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-14

• #1

需要把串口读进来的数据转换为十进制数，以便下一步的处理，在delphi里面有没有这样的函数。
如果有麻烦介绍一下怎么用，实在是因为自己太菜！

 

雪

雪球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-14

• #2

需要把串口读进来的数据转换为十进制数，以便下一步的处理，在delphi里面有没有这样的函数。
如果有麻烦介绍一下怎么用，实在是因为自己太菜！

 

H

hn_yxb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-14

• #3

BinToHex(Buffer, Text: PChar; BufSize: Integer);

 

雪

雪球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-15

• #4

怎么用阿？举个例子吧

 

乖

乖乖小妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-17

• #5

Function binToDec(Value :string) : integer;
VAR
str : String;
Int : Integer;
i : integer;
BEGIN
Str := UpperCase(Value);
Int := 0;
FOR i := 2 TO Length(str) DO
Int := Int * 2+ ORD(str) - 48;
if str[1] = '1' then
Result := 0 - Int
else
Result := Int;
end;
使用这个函数就好了

 

雪

雪球

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-17

• #6

接受答案了.