如何把字符转为位串输出到memo里面？(50分)

L

lunyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #1

如何把字符转为位串输出到memo里面？有相关函数么？如不把 'a' 的二进制位串传到memo中

 

B

bmsr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #2

自己写了!
function chartobin(ch:char):string;
{$R-}
var
i:integer;
bt:byte;
begin
bt:=chr(ch);
result:='';
for i:=0 to 7 do
begin
if (bt and 1)=1 then
result:='1'+result
else result:='0'+result
shr(bt);
end;
end;

 

新

新世纪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #3

1. 把字符转换成二进制串;
2. 再把二进制串输出到memo;
3. 如果这两个步骤都不会, 就不要在这里问问题了;

 

L

lunyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #4

多谢了，好象不行啊。我是新手，请多包涵。

 

B

bmsr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-28

• #5

我改好了
function chartobin(ch:char):string;
{$R-}
var
i:integer;
bt:byte;
begin
bt:=ord(ch);
result:='';
for i:=0 to 7 do
begin
if (bt and 1)=1 then
result:='1'+result
else result:='0'+result;
bt:= bt shr 1;
end;
end;