黄
黄海庆
Unregistered / Unconfirmed
GUEST, unregistred user!
如何将ASCII转换成二进制，请提供函数
影
影 子
Unregistered / Unconfirmed
GUEST, unregistred user!
数字本来在计算机就是以二进制保存。
应该没有转成二进制的。
通过位移可以得到。
应该没有转成二进制的。
通过位移可以得到。
D
dongberlin
Unregistered / Unconfirmed
GUEST, unregistred user!
var
test: int;
test=ORD('A');//则test=65.
test: int;
test=ORD('A');//则test=65.
影
影 子
Unregistered / Unconfirmed
GUEST, unregistred user!
65同样不是二进制数。
不过，如果要显示二进制数。
可以用字符串方式显示。
不过，如果要显示二进制数。
可以用字符串方式显示。
J
jqw
Unregistered / Unconfirmed
GUEST, unregistred user!
ORD('A');
binto..
H
hfhuga
Unregistered / Unconfirmed
GUEST, unregistred user!
function DecToBinStr(n: integer): string;
var
S: string;
i: integer;
Negative: boolean;
begin
if n < 0 then
Negative := true
else
Negative := False;
n := Abs
;
for i := 1 to SizeOf * 8 do
begin
if n < 0 then
S := S + '1'
else
S := S + '0';
n := n shl 1;
end;
// Delete(S,1,Pos('1',S) - 1);//remove leading zeros
Delete(S,1,length(s)-8);//变成8位
if Negative then
S := '-' + S;
Result := S;
end;
var
S: string;
i: integer;
Negative: boolean;
begin
if n < 0 then
Negative := true
else
Negative := False;
n := Abs
;for i := 1 to SizeOf
* 8 dobegin
if n < 0 then
S := S + '1'
else
S := S + '0';
n := n shl 1;
end;
// Delete(S,1,Pos('1',S) - 1);//remove leading zeros
Delete(S,1,length(s)-8);//变成8位
if Negative then
S := '-' + S;
Result := S;
end;
D
dongberlin
Unregistered / Unconfirmed
GUEST, unregistred user!
var
test: int;
test=ORD('A');//则test=65.
showmessage(IntToBin(test));
{
Returns a binary string representation for an Integer value.
function IntToBin(Value: cardinal): string;
Parameters
Value: cardinal
Cardinal value to be converted.
Returns
String - Binary representation of the Integer value.
Description
IntToBin is a String function used to construct a binary representation
of a 32-bit Integer value. The return value for IntToBin will contain a
string of "0" or "1" characters for each of the bits in the integer Value.
}
test: int;
test=ORD('A');//则test=65.
showmessage(IntToBin(test));
{
Returns a binary string representation for an Integer value.
function IntToBin(Value: cardinal): string;
Parameters
Value: cardinal
Cardinal value to be converted.
Returns
String - Binary representation of the Integer value.
Description
IntToBin is a String function used to construct a binary representation
of a 32-bit Integer value. The return value for IntToBin will contain a
string of "0" or "1" characters for each of the bits in the integer Value.
}
影
影 子
Unregistered / Unconfirmed
GUEST, unregistred user!
想不到有这个函数。
真是不好意思。
要uses IdGlobal;
真是不好意思。
要uses IdGlobal;
影
影 子
Unregistered / Unconfirmed
GUEST, unregistred user!
完善一下，去掉前面的0：
var
test: integer;
strTemp : string;
i : integer;
begin
test:=ORD('A');//则test=65.//ORD是PASCAL的函数，一般用BYTE
strTemp := IntToBin(test);
for i := 1 to length(strTemp) do
begin
if strTemp = '1' then
break;
end;
delete(strTemp,1,i-1);
showmessage(strTemp);
end;
var
test: integer;
strTemp : string;
i : integer;
begin
test:=ORD('A');//则test=65.//ORD是PASCAL的函数，一般用BYTE
strTemp := IntToBin(test);
for i := 1 to length(strTemp) do
begin
if strTemp = '1' then
break;
end;
delete(strTemp,1,i-1);
showmessage(strTemp);
end;
V
Victor.Sun
Unregistered / Unconfirmed
GUEST, unregistred user!
IntToBin要从哪里引用？
影
影 子
Unregistered / Unconfirmed
GUEST, unregistred user!
我前面不是说了吗？
uses IdGlobal;
uses IdGlobal;
V
Victor.Sun
Unregistered / Unconfirmed
GUEST, unregistred user!
影 子:
好像只有Delphi6 才支持IdGlobal。
我前面用Delphi5没通过。
[][]
好像只有Delphi6 才支持IdGlobal。
我前面用Delphi5没通过。
代码:
V
Victor.Sun
Unregistered / Unconfirmed
GUEST, unregistred user!
[]
]
影
影 子
Unregistered / Unconfirmed
GUEST, unregistred user!
只有DELPHI才有，
如果用DELPHI5，可以自己写一个函数。
只是一般的算法，没什么困难的。
如果用DELPHI5，可以自己写一个函数。
只是一般的算法，没什么困难的。
Z
zyy04
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.