如何将byte类型的每一位提出来!!急!急!急!急!

XDvlper 2003-08-23 01:16:14
up
...全文
52 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
leonkim 2003-08-23
  • 打赏
  • 举报
回复
自己写一个BinToStr,然后再用得到的字符串[i]
zjybestzjybest 2003-08-23
  • 打赏
  • 举报
回复
IntToBin
lxpbuaa 2003-08-23
  • 打赏
  • 举报
回复
uses IdGlobal;

var
B: Byte;
begin
B := 255;
ShowMessage(IntToBin(B));
end;

—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
DWGZ 2003-08-23
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
I, R: Integer;
b: Byte;
begin
b := 5;
for I := 0 to 3 do
begin
R := b and (1 shl I);
if R > 0 then ShowMessage('bit ' + IntToStr(I) + ':1') else ShowMessage('bit ' + IntToStr(I) + ':0');
end;
end;
yaojiabinnet 2003-08-23
  • 打赏
  • 举报
回复
var
a:byte;
m:string;
begin
a:=177;
m:=inttostr(a);
Showmessage(m[1]+m[2]+m[3]);
end;
nhdj 2003-08-23
  • 打赏
  • 举报
回复
byte[i] 也可以
nhdj 2003-08-23
  • 打赏
  • 举报
回复
var
a:pbyte;
b:string;
begin
getmem(a,sizeof(pbyte));
a^:=$12;
b:=inttostr(a^);
Showmessage(b);
end;
moeryang 2003-08-23
  • 打赏
  • 举报
回复
byte[i]

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧